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Cost pour Douyoir Byre face a une 
demands plus tie dix fois 
supftieure a ce qui avail ete prevu 
qu'HeDo a decide de lancer une 
nouvdle fabrication de2f)fi0 
cartes Apple-Tell. Avantage de 
la grande serie : de tres sensibles 
reductions de coin sur le prix ties 
coraposants LSI ei VLSI, 
pemiettant de taire chuter de plus 
de20 M o leprix de latarte 
Apple-Tell. 

Le modem vedette de voire Apple, 
deja couronne Pomme d'Or 1983. 
a susdtfi en 19X4 trois nouvelles 
Pomme* d'Or, r&umpaisaiit irois 
des ( tres nombreux I logitiels que 
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a Apple-Tell ; 
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Editorial 



77 U w et D S n ? rnbreuK plusieurs centaines. a avoir repondu au questionnaire publie dans le numero 
17 de Pom s. La liste des gagnants se trouve en page 55. Les lecteurs qui ne 1'ont pas encore rempJi 
peuvent toujours le faire. En effet. une revue comme la ndtrp est pn permanence a I'ecoute de son 
lectorat, et ce sondage est le meilhur moyen de connaftre vos besoms. Nous ne pourrons pas bien 
entendu, satisfaire toutes vos requites, dans la mesure oQ certaines dentre elies sont contradictors 
mais nous tiendrons compte de toutes les remarques. Les resultat<; detaillles de ce sondaqe paraitront 
dans le numero 19. 

Nous tenons prendre hommage a la revue Golden pom son bon gout : elle apprecie tellement Pom's 
qu elle a publie dans un recent numero. sous la plume de Joel Bernard, la transposition en assembleur 
du programme 'Un anafyseui de synlaxe " Gait par Olivier hen et publie dans Pom 's 6. En desassem- 
blant cette contribution "originale". on retrouve /'aignrithrne d'OlMer. avec a peine quelques petitcs 
ameliorations. Pour ne pas priver les fiddles lecteurs de Pom's, nous Ieurs ofhirons dans le prochain 
nurniro une version en assembleur de ce programme par Carlos Sacre ; celle-ci permet, en outre 
a analyser de fa^on automatique tous les fichiers Basic dune disquette. 

Puisque nous parlous de contributions, rappe/ons que nous demandons aux auteurs de nous envoyer 
sur une disquette les tichiers programme et le texte de V article sous forme de fichier TEXT (de prefe- 
rence AppleWriter ou fichier ASCII sur Macintosh, mais ce n'est pas ties important). Nous SOUhaltons 
que. de facon generate, les articles suivent le plan sutvant : obiet du programme, mode dempioi expli- 
cations techniques. Nous essayons de g^raliser ce plan dans les articles de Pom's, afin de faciliter au 
lecteur non specialiste I'utilisation des merveilleux programmes de voire revue pr6fer$e. Dans la meme 
ligne d,dee, vous verrez avant la fin de f'annee un livre regroupant les objets et modes d'empbi de 
tous les programmes de Pom s depuis le peche de gourmandise d'Adam. 

Dans ce numero. vous trouverez. comme a I 'habitude les rubriques Courrier des lecteurs. Micro-infor- 
mations etBibliographie que nous devons a Olivier Herz. Jean-Michel Gourevltch. et Alexandre 

Duback Un sommaire des anciens numeros de Pom's vous est propose, il vous permettra de trouver 
rapjdement 1'article qui vous int&esse. afin de completer votre collection. 

Pom's a rencontre le celebre pirateur de iogiciel Aldo Reset... Francois Sermier nous offre la possibi- 
lity de sauver, sur la meme disquette. des fichiers DOS 3.3 et ProDOS. tandis qiip Gerard Michel 
nous propose une saisie de variables par ecran. 

Olivier Herz teste pour vous le Iogiciel Porte-Parole et illustre. grace a un programme de Regis 
Lardennols . I article sur les pointeurs en Pascal UCSD publie dans le precedent numero. 

Les fenetres du Macintosh ont inspire Georges Zwlngelstein : il a ecrit un programme de gestion de 
fenetres pour les Apple /A 

Dans chaque numero de Pom's (ou presque), plusieurs pages sont consacrees au graphisme , ainsi 
Thierry Han nous propose des 'Graphiques Aleatoires" et Marc Debuigne une hard copv de la paoe 
HGR etendue. 

Jean-Pierre Januel nous offre fa possibllm d'utiliser le DOS de facon tout a fait transparente. tandis 
que Patrice Neveu recherche et trouve instantanement des mots ou groupe de mots dans un tableau 
de chames alphanurneriques. Dans le Cahier Mac, Marianne Sutz explique comment r€cup6rer les 
icdnes du systeme depuis un programme Basic, tandis que Jean-Luc Bazaneguemodifie les informa- 
tions pour le Pinder. Enfin. Julien Thomas analyse les rurseurs du systeme. 

Nous nous retiauvtuvns enfin tous lors du grand dehre d'Apple Expo, du 14 au 16 juin ou, outre Ip 
stand de Pom s. vous pourrez apprecier de nombreuses manifestations. Nous recommandons tout parti- 
culierement le d£bat passionnant que notre collegue Jean-Louis Couifeux (France Inter) organise le 
dtmanche apies-nudi, mettant face a face des auteurs de loqiciels bestsellers et les plus prestiqieux 
pirateurs de Iogiciel frangais. 

II est important de prcciscr que I'entree a Apple Expo est gratuite pour les membres du Club Apple. Les 
lecteurs de Poms, quant <§ eux, beneficieront dune remise de 50% sur presentation du dernier nu- 
mero. 

Herve Thiriez 
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5"l/4 COMPATIBLE APPLE ll + ,lle,llc 
NOUVEAUrCable pour lie 



- 1/2 HAUTEUR 
-40 PISTES (48 T.P.I) 
-143 Ko SOUS DOS 3.3 

- 160 Ko SOUS DOS MODIFIE 

- DETECTION DE PISTE ET PROTECTION 

- ECRITURE PAR OPTO-ELECTRONlQUE 
-MOTEUR A ENTRAINEAAENT DIRECT 
-SYSTEME DE FERMETURE BREVETE 




LE MEILLEUR RAPPORT QUALITE/PHIX DU MARCHE 

Floppy simple 1 256 Frs H.T I 490 Frs F.T.C 
Floppy double 2 521 Frs H.T 2 990 Frs, T.T.C 
(pr/x par quant He sur demonde) 



Ce lecteur de disquette a ete homologue par la FRAMIF, 
I Aerospatiale. le club Thomson, etc... 



-HAUTE FIABILITE 
-SILENCIEUX 

-FAIBLE CONSOMMATION 
-GARANTIE 1 AN 




CE MO DELE FAIT P ARTIE DUNE GAMME COMPLETE DE LECTEURS 5"l/4 & 3"l/2 AVEC INTERFACE SASI. 

Autres modeles dispombles poor lous micros (nous conlnrter) 



-Carte 80 colonnes etendue 990 T.T.C 

-Disquettes 5"1/4 11,90 Frs H.T par boTte de 10.(13,90 Frs T.T.C) 
-Moniteurs 12" haute resolution vert ou orange 990 Frs T.T.C 
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Disquette mixte ProDOS/DOS 3.3 

Franqois Sermicr 



Principe 

Vous venez de decouvrir ProDOS. 
paiticulierernent la grande faeillte de 
lacces disque au niveau Hi i bloc a 
partir du Basic (nous aliens y reve- 
nir...), rnais voub aimez bien DOS 
3.3 et dailleurs beaucoup de vos 
programmes style ZAP ne sont pas 
compatibles ProDOS... 
Ou encore, vous echange? dps dis- 
quettes de programmes avec des 
amis et il vous faut toujours 2 dis- 
quettes differences (ou 2 fares), une 
pour DOS 3.3, une pour ProDOS. 
cela fii lit par poser des problemes 
(exemple ; disquette Pom's) 
Vous aimericz bien avoir tout cela 
sui une rneme disquette. Et bien 
e'est dorenavant possible avec le jeu 
de programmes presentes ici. 

La demarche a suivre est (relative- 
ment) natureile : 

• Initialiser une disquette ProDOS a 
Faide du FII PR 

• Modifier a la main, a l'aide d'un 
urJlltaire de type ZAP. le Volume 
Bit Map (equivalent ProDOS du 
VTOC 3.3). pour limiter la partie 
utilised par ProDOS 

• Creer a la main une piste CATA- 
LOG 3.3 et un VTOC s'attribuant 
la partie non ProDOS. 

Le programme INITPR03.3 ci-apreb 
se charge automatiquement des deux 
dernieres etapes. 11 vous demande 
seulement a partir de quelle piste 
vous desirez que commence la partie 
DOS 3.3 (par defaut. il coupera la 
disquette en 2 t parties eyales, au mi- 
lieu de la piste 17). II vous demande 
egalement si vous desirez raccourcir 
le Directory ProDOS . comme la dis- 
quette contient moins de blocs, vous 
pouvez ramener le Directory dc 1 a 
2 blocs et recuperet ainsi IK octets 
de memoire disque (cela vous laisse 
tout de meme 25 entrees, dont 
d'eventuels SubDiieclory au CATA- 
LOG, au lieu de bl). Meme pro- 
bleme pour la partie DOS 3.3. ou la 
taille du CATALOG peut etre fixee 
de 4 secteurs minimum a 15 maxi- 
mum 



Kemarque important^ normale- 
ment, tronqucr le repertoire est sans 
danyer... mais. on peut avoir des sur- 
prises: ainsi. CONVERT lit dautorite 
les 15 secteurs de la piste 17 sans 
s'occuper de leur chatnage ni s'arre- 
ter a la premiere entree vide, il si- 
gnale une erreur mais on peut pour- 
suivie el transferer tous les fichiers 
que I on veut. Pire encore, la dis- 



quette "Utilitaires He" refuse de re- 
connaitre un volume ProDOS dont 
le repertoire est tronque pour I ope- 
ration Identifier Lister Volume, mais 
accepte tout autre operation (copier 
fichier, transferer) ., bizarre 1 Notez 
egalement qifelle refuse obstinement 
de reconnaitre la partie DOS 3.3 
d'une disquette mixte; on ne peut 
done pas ronvertir sur la meme dis- 
quette avec Utilitaires c Par contre. 
cela est parfaitement possible avec 
CONVERT 

La disquette produite par INIT- 
PR03.3 est lisibie par ProDOS et 
DOS 3.3 Attention, un meme pro- 
gramme ou fichier ne peut etre lu 
que par 1*1X11 des deux DOS; tl faut 
toujours recourir a CONVERT si 1'nn 
veut le faire passer d'une moitie a 
I'dutre. Par contre la disquette n'est 
pas bootable ni en ProDOS ni en 
DOS 3.3. Ceci est norma! en 
ProDOS ou il faut la rendre explicite- 
ment bootable en y transferant 
PRODOS et BASIC.SYSTEM (ou 
tout autre programme de type SYS- 
TEM). On peut enfin simuler un boot 
DOS 3.3 en copiant DOS 3.3 sur la 
partie ProDOS et en appelant 
HELLO. OBJ qui se charge du reste 

Ceci n'est que le premier pas vers un 
systeme totalement mixte ou le Basic 
Applesoft pourra au choix utiliser 
DOS ou ProDOS permettant de 
CONVERTir tres elegamment ces 
programmes Basic ou binaire. Mais 
n'anricipons pas 



Secteurs, Blocs et MLI 

L'ensemble de I'operation est realisa- 
ble car tous les syst£mes d'exploita- 
tion (y cornpris CP M et Pascal 
UCSD. voir programme INITPA53.3 
dans le prochain numero) utilisant le 
DISK II d'Apple s appuient sur une 
meme sectorisation physique de la 
disquette Les differences viennent 
du fait que. pour diverses raisons. la 
sectorisation logique de la disquette 
n'est pas identique, e'est ce qu'on 
appclle rentrelacement (interleaving). 
De plus en ProDOS. I'acces disque le 
plus elernentaire s'effectue non plus 
scctcur par secteur mais par groupe 
de 2 secteurs appele bloc. A noter 
que^Hdee de pistp n'existe plus en 

Les dpux tables suivantes permertent 
de voir la correspondence entie les 
differentes notions de sectorisation 
pour la piste 



TABLE 1 

emplacement physique 

1 23456789A BC DE 

secteur logique DOS 3 3 

07E6D5C4B3A2918 

bloc logique ProDOS 

OA 4A OB 4B 1A 5A IB 5B 2A 6A 

2B 6B 3A 7A 3B 7B 



TABLE 2 

blocs ProDOS : 
12 3 4 5 6 7 

secteurs DOS 

()-F D-C B-A 9-8 7-6 5-4 3-2 1 -F 

Pour les autres pistes, ces tables res 
tent valables et relienl le reste de la 
division par 8 du numero de bloc et 
les secteurs DOS correspondents. Le 
numero de piste est le quotient de la 
division par 8 du numero de bloc. 
Exemple ; 

piste 17. secteur 7 : debut du bloc 
numero 8*17+4 soit 140 
reciproquement, bloc 100 = piste 
numero (100 8) soit 12. reste 4 done 
secteurs 7 et b. 

On pourrait realiser la conversion par 
les routines Basic suivantes : 

BLOC ■> PI5TE5ECTEUR 

PISTE = INT (BLOC I 8): 
RESTE = BLOC -8 * PISTE 
SI -15 - 2 * RESTE: S2=S1-1 
IF S1=0 OR Sl = 15 THEN 
51 = 15-51 

PISTESECTEUK »> BLOC 

IF 5=0 OR S = 15 THEN S = 15-S 
RANG = : IF S =2 * INTfS/2) 
THEN RANG - 1 (ou simplement ; 
RANG =(S = 2 * INT(S/2)) 
BLOC= 8*P!STE +(7-INT(S/2)) 

L'arc&s disque au niveau du bloc est 
extremement simple par I'intemie- 
diaire de MLI (Machine Language In- 
terface) qui regroupe un ensemble 
de 26 subroutines ProDOS reperees 
par un code et appelees de maniere 
standardise:? MLICALL montre 
comment utiliser cet appel MLI (voir 
listing MLICALL5CE) : I'appel de 
MI I doit £tre suivi du code de la 
fonction appelee et de I'adresse de la 
table des para metres de la fonction. 
Le retour de MLI se fait en sautant 
ces 3 octets. L"indicateur de retenue 
(Carry) est mis a 1 s'll s'est produit 
une erreur; le code de I'erreur est 
contenu dans Taccumulateur. On 
peut alors faire un traitement d'er- 
reur Cependant. il u a beaucoup 
d'erreurs possibles (29), aussi le plus 



efficace consiste a uliliser celui qui est 
fourni par le Basic : JSK BADCALL 
($BE8B) analyse les 29 crreurs MLI 
en 19 erreurs reconnues par 1'inter- 
preteur Basic (BI) et JSK ERROUT 
($BE09) entre dans le traitement 
d'erreur Basic (cette m&thude tres 
simp3e n est pas tres documentee). 
La liste des parametres depend de la 
fonction appelee et e&t extrernement 
bien documentee (voir la bibliogra- 
phie). 



La structure d'un volume 
ProDOS 

Un volume ProDOS est donr simple- 
rnent une succession de blocs, nor- 
malement 280, sur une disquette 35 
pistes. Cependant tons ne> son! pas 
disponibles, en effet le debut du vo- 
lume est occupe par 7 blocs speciaux 
que nous allons analyser 

• blocs 0-1 : 

Programmp en langage machine 
execute automatiquement lors du 
boot. II cherche sur la disquette un 
fichier du nom de PRODOS; s'il 
ne le trouve pas. il affiche UNA- 
BLE TO LOAD PRODOS et se 
plante (cas d'une disquette de 
donnees), sinon il le charge en 
$2000 puis saute en $2000. Voir 
la suite des avpntures de ProDOS 
lors du boot dans Beneath Apple 
ProDOS par exemple. 

• blocs 2-5 : 

Repertoire (directory) du volume 
Chacun des 4 blocs est compose 
des elements suivants 

- 2 octets realisant le chainage 
arriere des blocs du repertoire lis 
contiennent le numero du bloc 
precedent ou s'il n'y a pas de 
precedent. 

- 2 octets realisant le chainage 
avant ... numero du bloc suivant 
ou si ... 

- 13 groupes de 39 octets, cha- 
que groupc decrivant un fichier du 
volume sauf le tout premier des 
52 qui decrit le Volume lui-meme. 
Le bloc 2 qui conticnt ce groupe 
crucial pour facets au disque a 
regu le nom de bloc cle. 

• bloc 6 : 

Image logique de f'occupation de 
la disquette (Volume Bit Map) A 
chaque bloc du volume est associe 
un bit dans ce secteur; si le bloc 
est utilise, le bit correspondant est 
a 0. s'il est librc. le bit est mis a 1. 
Le premier octet decrit l urilisatlon 
des blocs a 7 Pour une dis- 
quette fraichement initialisee (pas 
d'autre operation), il doit valoir 1. 
En effet. on vient de voir que les 
blocs a 6 sont occupes. d'ou en 
reprebtnldrit cet octet sur les 8 
bits 

(voir schema) 



Remarquez que seuls les blocs a 
2 sont a un emplacement rigide. 
puisque Faeces aux autres se fait 
par l'intennediaire du bloc 2 (chai- 
nage des blocs du repertoire et 
pointeur sur le bloc VBM). On 
peut done deplacer les autres ou 
meme les supprimer (sauf evidem- 
ment le VBM !!!). 

(voir tableau 3) 

Le programme 
INIT PR03.3 

Sa structure est tres simple, elle est 
purement lineaire. On a essaye de 
rendre aussi lisible que possible les 
lectures t ecritures de blocs et d'ac- 
cepter les options par defaut par un 
simple RETURN 

Lignes 10 a 70 . initialisation el verifi- 
cation du volume. On pourrait tester 
si I' operation de mixtage n'a pas deja 
ete effectuee en testant DOS = l en 
ligne 80. Ce morceau appelle un 
sous programme en 3000 qui assure 
diverses laches d'inlendauce : le Bip 
ProDOS tel qu'il est decrit par Apple 
(ProDOS Tech. Man ), mise en place 
de ML1CALL (notez que les lignes 
3090 a 3110 mettent en evidence la 
structure d'un appel MLI et permet- 
tent en modifiant les lignes 
3040-3050 de placer le bout de 
code machine n'importe ou ailleurs 
que dans Parchi-usee page 3...). 
Lignes 100 a 130 lecture du bloc 
cle (premier bloc du Directory) On y 
trouve successivement : 

• le nom du volume (reconstitue par 
le sous programme en 900), 

• le pointeur vers le Volume Bit 
Map (VBM, normalement = 6 
sauf si Ton a deja tronque le Di- 
rectory auquel cas VBM =4). 

• le nombre de blocs du volume 
(NB. normalement = 280 sauf si 
la disquette a deja ete trafiquee 
auquel cas la valeur de NB est im- 
previsible...), on en deduit le nu- 
mero de la derniere piste ProDOS 
(PM. normalement = 34) 
Remarquez que le volume a modi- 
fier doit se trouver dans le lecteur 
2. on peut le mettre ailleurs mais il 
faut modifier la valeur de UNIT en 
ligne 3040. 

Lignes 140 a 230 vous entrez vos 
options Par defaut. le roi Salomon 
tranche au milieu de la disquette Si 
le Directory est deja tronque. vous 
n avez pas le choix. il le restera. 

Lignes 240 a 360 . mise a jour du 
Volume Bit Map. Si I on rajoute de la 
place ProDOS sur une disquette deja 
mixte. on libere les blocs correspon- 
dants (il se peut que I on perde des 
fichiers DOS 3.3)(ligne 260) En 
270-280. on vetifie que la place 
consacree au DOS 3.3 (c est-a-dire 



les pistes de PI a P2 plus la piste re- 
pertoire) n'est pas deja occupee par 
du ProDOS. Le sous-programme en 
800 examine Toccupation de chaque 
piste par ProDOS; a la premiere qu'il 
trouve non vide, il vous le signals et 
vous laisse la possibility de ne tou- 
cher a rien. Si vous persistez, en 
840, on marque la piste comme oc- 

cupee. C est indispensable, bien sur 

pour la piste 17, mais aussi pour les 
pistes situees dans la partie DOS, car 
leurs numeros de blocs depassent la 
valeur maximale prevue dans le bloc 
cle du volume et si MLI y trouve un 
octet non nul (e'est-a-dire un bloc 
libre), il consider© que le Volume Bit 
Map a ete deteriore d'ou erreur, tra* 
duite par BI en une inexplicable I/O 
ERROR. 

Le test de la ligne 830. autorise a 

tenter I'experience sur une disquette 
contenant deja des fichiers. II n'y a 
aucune difficulty si aucun bloc n est 
occupe apres le bloc numero 135. 
Mais si des fichiers existaient sur la 
parte detruite. ils seront detruits phy- 
siquement sur la disquette. mais pas 
dans le repertoire (il faudrait pout 
cela analyser l integralite du reper- 
toire et des listes de blocs des fi- 
chiers). De plus, si on essaie malgre 
tout d'y acceder, y compris pour les 
DELETEr, on provoquera une I/O 
ERROR, car le driver devra aller lire 
un bloc situe au-dela de son dernier 
blor II uatll mieux eviter de poursui- 
vre (option par defaut...) S'il faut 
tronquer le Directory, on libere 2 
blocs en piste (si ce n'est pas deja 
fait... ligne 290) et on reecrit VBM a 
son nouvel emplacement. 
Lignes 310 a 360: mise a jour du 
bloc cle. e'est-a-dire du nombre de 
blocs, du pointeur sur VBM; et mise 
a jour du chainage entre blocs du Di- 
rectory (ligne 360 si necessaire). 

Lignes 500 A fin ecriture du Direc- 
tory 3,3. VTGC en $110. Catalog 
de $11 F a $11 1 au plus. On vcri 
fieid que. quelle que soil la valeur de 
NS(J<4 le programme creera un mi- 
nimum de 4 sectcurs. 

Booter ProDOS 
et DOS 3.3 

La disquette produite n est qu une 
disquette de donnees. elle ne peut 
booter sous aucun systeme 
Booter en ProDOS est tres simple, 
il suffit de transferer sur la partie 
ProDOS les fichiers ProDOS. 
BASIC SYSTEM et. si Ion veut. un 
programme STARTUP a 1 aide du 
FILER. On peut realiser cela des l ini- 
tialisation de la disquette. puisque la 
transformation conserve les premiers 
bloc? du volume Ceci permet de di- 
minuer le nombre de manipulations 
en ne recourant quune fois au 
FII FR 
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Bootcr en DOS 3.3 est bien stir 
impossible stricto sensu. mais on 
peut le simuler. Pour cela, il est n6- 
cessaire d'avoir un fichier ProDOS 
contenant I'image du DOS 3.3. Si 
cela est aise a 1'ecriture, un concoit 
aisement que cela 1 est rnoins a la re- 
lecture. II faut done le transferer a un 
autre emplacement memoire; d'oft 

les operations suivantes : 

• Booter une disquette DOS 3.3 
normale, 

• CALL-151 

• 3000<-9D00.BFFFM (depiace le 
DOS) 

• 3D0G (ou CTKL-C pour revenir 
en Basic) 

• BSAVE DOS 3.3.A$3000,L$230G 
(sur la disquette DOS 3.3) 

• Employer 1'utilitaire CONVERT 
pour transferer DOS 3.3 sur la dis- 
quette ProDOS 

• Faire ies operations inverses sous 
ProDOS n est pas possible directe- 
ment (la machine se plante car on 
n entre a aucun moment dans le 
DOS 3.3 et la page 3 ($3D0 a 
$3FF) n est pas en place. II faut 
ubliser le petit utilitaire 
HELLO. OBJ (a implanter sur la 
partie ProDOS). 

• Sous ProDOS : BLOAD DOS 3.3 

• Puis BRUN IICLLO.OBJ el nous 
y sommes ! 

Voyons le programme HELLO ORJ 

- de $300 a $317: retransfert du 
DOS a sa position initiale en $9D00. 
Ces lignes sont equivalentes a la 
commands moniteur 
*9D00<300O.53O0M 

- en $318 et $31A : on suppnme le 
mode TRACE mis discretement par ' 
ProDOS pour ses besoins internes 

- $31C A $325 : on implante la 
chaine de cararteres HELLO dans le 
tampon contenant les parametres des 
commandes DOS. 

- $327 et fin ; on rentre a froid dans 
le DOS (DOS coldstart). apres lui 
avoir fait crolre que la derniere 
commande executep (en $AA5F) par 
lui etail INIT ce qui est son'etat nor- 
mal lorsqu'll vient dune disquette 
normalement initialise Ayant verifie 
la chose, le demarrage a froid du 
DOS met en place les vecteurs de la 
page 3 et cherrhe a executer un pro- 
gramme du nom de HELLO (pro- 
gramme situe evidemment sur la par- 
tie DOS 3.3 de la disquette) S'il n'y 
a pas de HELLO, on obtient le clas- 
sique FILE NOT FOUND, mais on 
est quand meme en DOS 3.3. 

On pourra trouver un exemple de 
boot DOS 3.3 dans le court pro 
gramme (ProDOS) I 1ELLO joint 



Bibliographie 

Pour la description des formats des 
secteurs (respectivement blocs) deu 



Source Toolkit Programme MLICALL.SCE 

SOURCE FILE; MLIWLL.SCE 

0000: 1 LST NtM 

0000 : 2 ****** ************** **** h f ********** lumi i 

0000: 3 * Routine d'appet de HLI I partir du WS1C 

0000: A ********************************************* 

NEXT OBJECT FILE NWC IS MICALL.SCE.0BJ0 



VOU V ■ 


■ 


UKO 


»JUU 


0300* 


A t 

■ 






0080 • 


7 1 IT 

f LI 1 


FOII 
CUU 


<(30 

»ou 


onp.i • 


CUrtl 1 


c nil 

CUU 




0300 ■ 


9 i 






UUU*J • 


iU Lui 


PDII 

cuu 




fMFfl* 

uucu ■ 


11 INIT 


con 

cuu 


»cu 


2000: 


1? BIIFFFR 


FOII 

LOU 


*£UUU 


000?! 




mil 
cuu 


49 


DCuo* 




COM 


4DCQQ 


RFQ9- 


j w Lnnuu i 


FOII 
CUU 




8F0O- 

uruu ■ 


IX HI T 

JO TO. 1 


cuu 


4flFnn 


UJUU • 


it » 






0300-70 OH RF 


10 




Nl I 


0303-80 


19 CODE 


Of B 


LIT 


0304:10 03 


20 


DU 


MRLST 


0306:90 U 


21 


BCC 


OK 


0308:20 SB BE 


22 


JSR 


BADCALL 


030B;20 0? BE 


23 


JSR 


ERR0UT 


030E:o0 


24 OK 


RTS 




030F:00 


25 


BRK 




0310:03 


26 PARLST 


DFB 


IBi 


0311.-E0 


27 


DfB 


WIT 


0312:00 20 


28 


DU 


BUFFER 


0314:02 00 


29 


DU 


BLOC 



(drive 2; pour drive IMi) 



*** SUCCESSFUL ASSEHBLY: NO ERRORS 



Schema 

octet n" 

0000 0001 
bit; 7654 3210 
bl oc : 0123 4567 



1 et les 
j usqu ' au 
1 1 1 1 1111 
7654 3210 
89AB CDEF 



33 suiuants 
n'34 inclus 



TABLE 3 



TABLE 3: 

rang d* I 'octet 
jin * i* group* 



Cont*nu d'un group* d* 39 
aticnp tion d'un fichier 



d'un wolumt 

< l*r group* bloc 2> 



a 

1-13 
14 
17-18 
l?-20 
21 -23 
24-27 
26 
29 
30 
31 
32 
33-34 
33- J6 
3/--J8 



t rp* du f t eh l«r 
bloc cl* du fichier 
nomort a« bl oci ut i I 
namor* d ' oc ! * t s dan* 



Inutil is* (8 fots 0) 



Crp* d* stocKag*, longu*ur du nan 
nom d* l'*l*m*nt d#cr i t 

I 
I 

*M I 
I • # i ch i *r I 
dat*-h*ur* d* cr*4tlon (cf. DATE ProOOS, POM'S) 
n- v«r* ( on ProOOS Utilise lor* d* U cr*ation 
n" wirnon ProOOS minimal r«qui* pour c* *ichi*r 
*cce» autons** CltCtUPVi *cntup», dtitruction) 



I aar**s* 0* char g*m*n t I 

I ou longu*ur d' »nr*gi * tr*m*n t I 

dat* d*rni*r* modification | 

h*ur» flipniirf modification I 

Dice c I e du repertoire I 



lon^ufur d*» group** <39) 
nb* group** par bloe<!3> 
nombr* d* group** actif* 
N' bloc V8M (normt 4) 
nomore total de bloc* 



Pom's n u IX 
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Directories ou du VTOC (respective- 
ment VBM), on reportera <mx ma- 
nuels Apple ou a leurs complements 
de Quality Software : 



Manuel du DOS (Apple} 

ProDOS Technical Reference Manual 

(Apple) 

Beneath Apple DOS (D. Worth et 



P.Lechncr. QS) 

Beneath Apple ProDOS (D.Worth et 
P.Lechner. QS) 



Source Toolkit 
Programme HELLO 



SOURCE FILE: HELLO. SCE 






0000: 


1 


LST 


NOA 


0000: 


2 (HHHHJHHHKHHHHHHHm 


0000: 
0000: 


3 t coHisteuce di DOS3.3 et Pro-DOS 

A H««HIHH«HH»HHHHHH»H 


NEXT OBJECT FILE NAME IS HELLO. SCE. OB JO 


0300: 


5 


ORG 


$3fl0 


0300: 


4 » 






003C: 


7 Al 


EQU 


*3C 


003E: 


8 A2 


EQU 


«3E 


0042: 


9 A4 


EQU 


142 


00F2: 


10 TRACE 


EQU 


«F2 


0300: 


11 « 






9DEA: 


12 D0SB0OT EQU 


»9DEA 


AA5F: 


13 BID 


EQU 


*AA5F 


AA75: 


14 NAME 


EQU 


IAA75 


FE2C: 


15 MOVE 


EQU 


*FE2C 


0300: 


14 « 






0300 :A2 00 


17 


LDX 


£0 


0302:86 3C 


18 


STX 


Al 


0304:84 42 


19 


STX 


A4 


0306:CA 


20 


DEX 




0307:86 3E 


21 


STX 


A2 


0309 :A9 30 


22 


LDA 


M39 


030B:85 30 


23 


STA 


Al«] 


0300 :A9 52 


24 


LDA 


M52 


030F:85 3F 


25 


STA 


A241 


0311 :A9 90 


26 


LOA 


£190 


0313:85 43 


27 


STA 





0315:20 

0318: 

031B:A2 

031A:86 

031C:BD 

031F:90 

0322:E8 

0323:C9 

0325:00 

0327 :A9 

0329:80 

032C:20 

032F: 

032F: 

032F:C8 

0332:CC 



2C FE 

B0 

F2 

2F 03 
73 AA 

AO 
F5 
00 

5F AA 
EA 90 



C5 CC 
CF AO 



on 

28 


ICO 

JSR 


Ufiir 

ntWL 








on 


LUA 


c u 


31 


CTV 


TDAPC 


il LUUr 




uci t n y 


33 


STA 


NAME,X 


34 


INX 




35 


CHP 


E4A0 


36 


BNE 


LOOP 


37 


LM 


E0 


38 


STA 


CUD 


39 


JSR 


D0SB00T 


40 * 






41 


MSB 


ON 


42 HEU.0 


ASC 


'HELLO 



*« SUCCESSFUL ASSB1BLY: NO ERRORS 



Programme DEBUT 



100 0% ■ CHR* <4): PRINT D* ; " BLOAD D0S3. 
3" 

110 ONERR GOTO 200 

120 PRINT D*;"BRUN HELLO. OBJ" 
200 IF PEEK (222) = 6 THEN PRINT CHR* 
<7): PRINT "Pas de programme HELL 
O !" 

210 PRINT : PRINT 'Vous etes en DOS 3-3" 
220 NEW 



Programme INITPR03.3 



10 HOME =00 = 254sFF =00-1 

20 DEF FN HI (X ) = iKfT <X / 00): DEF F 

N LO(X> = X - 00 « INT <X / OO) 
30 DEF FN W<X> = PEEK <X> + OO » PEEK 
<X + 1 ) 

40 DEF FN PISTE<X) = BU * 54 + 4 * X 

50 DIM TY*<2):TYt<0> - " D0S3 . 3" :TY*C 1 ) = 

■ProDOS" :TY*<2) = "Pascal" 
40 GOSUB 3000: REM Initialisation 
70 IF TYPE < > 1 THEN PRINT : PRINT »C 
e n'est pas une cHsquette ProDOS" : 

CALL BELL ! GOSUB 3120: GOTO 70 



100 REM Directory ProD 

102 REM 

104 REM Lecture Key-Bio 

ck 

110 POKE CODE.LIT: POKE BLOC, 2: CALL ML I 
120 R = BU ♦ 4: GOSUB ?O0:VOL* = N* ♦ ■/■ 
130 ^BM - FN UKBU + 39):NB = FN UKBU + 

41):PM = INT <<NB - 1) / 8> 
140 PRINT : PRINT "Vous allez transforme 

r ■ ;VOL* 

150 PR I NT " en mixte ProDOS-DOS 3.3" 

160 PRINT : PRINT "1 )re piste DOS 3.3 e 
n n[s 17";: HTAB 27: INPUT R*:P1 = 
WL <R*>: IF R* = "" THEN PI = 1 

7 
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170 <*TAB PEEK (37): HTAB 28: PRINT PI 
180 IF PI < OR PI > 34 THEN CALL BELL 
: PRINT 'nC piste hops 1 imi te !".- 

GOTO 160 

190 P2 = 34: IF PM > P2 THEN P2 = PM 
200 IF VBM < 6 THEN TR = 1 : GOTO 220 
210 PRINT : PRINT "Tronquer le Directory 
PruDOS ?N-;: HTAB 31: GET R* : PRI 
NT R*: IF R$ = "O" THEN TR = 1 
220 PRINT : PRINT "Nbe Secteurs Director 
y DOS 3.3: 15";: HTAB 32: INPUT R* 
:NSC ■ VAL <R*>: IF R* = THEN 
NSC = 15 

230 VTAB PEEK (37): HTAB 33: PRINT NSC 
23? REM 

240 REM Mise 2 Jour Uol 

ume-Bi t-Map 
250 POKE BL0C.VBM: CALL ML I 
260 IF PM < PI THEN FOR P = PM TO PI - 

I I POKE BU ♦ P , FF : NEXT 
270 FOR P = PI TO P2: GOSUB 800: NEXT 
280 P = 17s GOSUB 800 

290 IF TR THEN POKE BU, PEEK <BU> * 6 * 

(UBM ■ 6) :UBM = 4 
300 POKE BL0C,"v"BM: POKE CODE , ECRIT : CALL 

ML I 

30 9 REM 

310 REM Mise 9 Jour Key 

-Bl ock 

320 POKE CODE, LIT: POKE BL0C.2: CALL MLI 
330 POKE BU + 39,VBM 

340 NB = 8 * PI; POKE BU + 41, FN LO(NB) : 

POKE BU + 42, FN HI <NB) 
350 POKE CODE, ECRIT: CALL MLI 
360 :: IF TR THEN POKE BLOC , FN UK BU * 2 

): POKE CODE, LIT- GALL MLI « POKE B 

U ♦ 2,0: POKE BU ♦ 3,0: POKE CODE, 

ECRIT: CALL MLI 
500 REM Directory DOS 3 

.3 

50 2 REM 

504 REM Ecriture secte 

urs Di rec tory 
510 FOR 1=0 TO 51 1 : POKE BU ♦ 1,0: NEX 

T 

520 POKE CODE, ECRIT 

530 POKE BU + 257,17: POKE BU + 258,14: 

POKE BLOC, 143: CALL MLI 
540 IMIN = l:OC = 0:F = 

550 IF NS < 15 THEN IMIN = 7 - INT <<NS 

- 1) / 2):0C = 163S2:F = 12288 
560 FOR I = 6 TO IMIN STEP - 1 
570 : :0C = OC - F :F = F / 4 
580 :::FIN = (I < = IMIN) AND (NSC < 15) 

590 II POKE BU + 1,17: POKE BU + 257,17 * 
NOT FIN 



600 :: POKE BU + 2,2 * I: POKE BU + 258, ( 

2 * I - 1 > * NOT FIN 
610 :: POKE BLOC, 143 - I: CALL ML I 
620 NEXT 

630 REM CrCation VTOC 



640 POKE BU + 2,15: POKE BU + 257,17: P0 

KE BU + 258,13 
650 POKE BU ♦ 3,3: POKE BU + 6 , FF - I 
660 POKE BU + 39,122: POKE BU + 48,16: P 

OKE BU + 49,1 



670 POKE BU + 52, P2 + 1: POKE BU + 53,16 

: POKE BU + 55,1 
£80 FOR I = PI TO P2 

690 POKE FN PISTE<I),FF: POKE FN PIS 

TEC I) + 1 , FF 
700 NEXT 

710 POKE FN PI STE< 17), FN HKOC): POKE 

FN PISTEU7) * 1 , FN LO(OC) 
720 POKE BLOC, 136: CALL MLI 
730 END 

799 REM Bar de la dern i >re chance 

800 IF < PEEK <BU ♦ P) - FF) OR OK THEN 

GOTO 840 

810 :: PRINT : PRINT : INVERSE : PRINT ■ A 
TTENTI ON" ; : NORMAL : CALL BELL: PR 
INT " Mous r isquez de dCtruire de 
s donates, de "^OL*: PRINT 

820 PRINT 'Voulez-vous continuer ?N" ; : 

HTAB 24: GET R* : PRINT R* 

830 ::OK = 1: IF R* < > "0» THEN END 

840 POKE BU + P,0 

850 RETURN 

899 REM champ Nom 

900 L = PEEK <R):ST = I NT < L / 16);L = 

L - 16 * ST 
910 m = •": IF ST = 15 THEN N* = ■/■ 
920 FOR J = 1 TO L:N* = N* + CHR* < PEE 

K <R + J)): NEXT 

930 RETURN 

3000 RFM Bip-Bip ProDOS ' — 



3010 BELL = 816: FOR I = TO 21 : READ X: 

POKE BELL + I ,X: NEXT 
3020 DATA 162,32, 1 69 , 2 , 32 , 1 68 , 252 , 141 , 

48, 192,169,36,32,168,252,141 ,48,19 

2,202,208,237,96 
3030 REM Initial* sat i 

on Appel MLI 

3040 MLI = 768 : BUFFER = 8192:UNIT = 224: 

REM Drive 1:96 Drive 2:224 

3050 PA = 784: BLOC = PA + 4 

3060 CODE = MLI + 3:LIT = 128:ECRIT = 129 
3070 FOR I = TO 21: READ X: POKE MLI + 
I,X: NEXT 

3080 DATA 32,0,191,128,16,3,144,6,32,139 

, 1 90 , 32 , 9 , 1 90 , 96 , ,3, 224 ,0,32,2,0 
3090 POKE MLI + 4 , FN LO<PA): POKE MLI + 

5, FN HI (PA) 
3100 POKE PA, 3: POKE PA ♦ 1,UNTT: POKE P 
A + 5,0 

3110 POKE PA + 2, FN LO< BUFFER ) i POKE PA 

+ 3, FN HI ( BUFFER) 
3120 REM Identification Dis 

que t te 

3130 PRINT -Disquette --> Drive 2. OK?" ; 

: GET R4: PRINT ■ OK" 
3140 POKE BLOC, 136: CALL ML I 
3150 DOS = < PEEK ( BU + 3) = 3) 
3160 POKE BLOC, 2: CALL ML I 

3170 TYPE = < PEEK < BU + 2> AND NOT PEE 
K <BU + 3)) * ( NOT PEEK ( BU + 4) 
+ 1) 

3180 RETURN 
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Saisie de variables par ecran 

Gerard Michel 
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La saisie de donnees reste souvent 
un sujet de preoccupation pour le 
programmeur. notamrnent en raison 
des insuffisances de I'instruction 
INPUT du Basic. Pom's vous a d'ail- 
leurs deja propose, sous des formes 
plus ou moins completes et 
complexes, de nombreuses routines 
de saisie-clavier. 

Ces differentcs routines, en Applesoft 
ou en assembleur. reposaient genera- 
lement sur un rn£me prinripe de 
fonctionnement : analyse et controle 
des caracteres entres au clavier, puis 
affectation au contenu H'nnp variable 
a Tissue d'une session de froppe. 
marquee, par exemple. par un RE- 

Elles pouvaicnt egalement comporter 
une gestion de la position du curseur 
a T^cran. en fonction des variables a 
saisir, au moyen de HTAB et VTAB, 
ou de traitements equivalents en lan- 
gage machine 

La solution presentee ici procede 
d'une autre demarche, articulee en 
trois etapes : 

• Saisie de caracteres au clavier, 
avec rejet des eventuels parasi- 
tes", caracteres de controle en 
particulier. 

• Affichage pur et simple des carac- 
teres valides a I'ecran 

• A Tissue de la saisie, detectee lors 
de la frappe de la touche ESC. 
analyse du contenu de I'ecran 
pour y reconstituer les differentes 
donnees et les affecter aux varia- 
bles. 

Ce mode dc saisie peut presenter 
certains avantages. lant pour le pro- 
grammeur (pas de gestion cornplexe 
d'ecran a definir et a reviser en fonc 
lion des ' erreurs el omissions"), que 
pour I utilisateur (saisie. sous reserve 
du respect de certaines regies, en 
inmporte quel endroii libre de 
I'ecran. possibility de se deplacer en 
permanence sur tout I'ecran pour y 
modifier des donnees. sans risque 
pour les variables.. 

Principes 
^utilisation 

II vous faudra tout d'abord definir les 
libelles devant apparaitre en regard 
des donnees a fournir. A chaque va- 
riable doit correspondre obligatoire- 
menl un libelle. aussi bref soit-il. mais 
il peui y avoir en revanche plus de 
libelles que de variables (pour un 
titre d'ecran. par exemple). 
Ces libelles seront ensuite affiches sur 
un ecran vierge par tous moyens a 
votre convenance. tels les simples 
ordres PRINT utilises dans notre pro- 
gramme d'illustration 



1 mm«ifii«iifi«iHiffitfii*« 

2 * • 

3 * SAISIE ECJWN APPLE //E-C i 

4 i (B16 hflC) # 

5 i 9 

7 
8 



Source Big Mac 
Programme IPE2.S 



9 


ore 


♦9000 




10 


mp 


£«5D 


jCARACTERE ? 


11 


BEG 


SO 




12 


mp 


£«3A 


;TRA1TEMENT CHR6ET STANDARD 


13 


BCC 


SI 




14 


RTS 






15 SI 


JHP 


*BE 




1* SO 


m 


{0 


; RECHERCHE DES LIBELLES A L'ECRAN 


17 


STA 


$25 




19 S4 


JSR 


IFBC1 


jCALCUL ADRESSE BASE DE LA LIBNE 


1? 


LDY 


fO 




20 S3 


IDA 


(«28),Y 




21 


mp 


im 


i'ESPACE" ? 


22 


BEG 


S2 


|0U1 ") PAS DE CHAN6EMENT 


23 


CMP 


£«DF 


!"_' ? 


24 


BED 


S2 




25 


CUP 


£$40 


;CARACTERE DEJA EN IMMERSE ? 


26 


BCC 


52 


iOUI -> PAS DE CHAM6EMENT 


27 


AND 


f$3F 


;TRANSFORME NORMAL EM INUERSF 


28 


STA 


($28) ,Y 




29 S2 


INY 






30 


err 


£$28 


;FIN 0E LIGNE ? 


31 


BNE 


S3 




32 


INC 


125 


jLItNE SUIUANTE 


33 


LDA 


$23 




34 


CMP 


£$18 


|SI L'ECRAN N'EST PAS TEW 1 ME 


35 


BNE 


S4 




U 


JSR 


Ml 


i OCTET SUIVfW S DAMS LE PR08W1E 


37 


CMP 


£'S' 


38 


BEG 


S5 




39 


CMP 


trv 




40 


BEO 


S5 




41 S6 


JSR 


$F399 




42 


JMP 


«DEC9 


SYNTAX ERROR" 


43 S5 


STA 


$6 


;SA (WE GARDE OCTET CCttWDE 


44 


JSR 


IB) 


i OCTET SU1VANT 


45 


JSR 


♦F7D9 


j RECHERCHE DO TABLEAU DE VARIABLES 


46 


LDA 


$98 


47 


STA 


$7 


jSAUYEGARDE DE Sm ADRESSE 


48 


LDA 


$9C 




49 


STA 


M 




50 


LDY 


£0 




51 
52 


LDA 

mi 


p.T 


m ti&vm wnr 


53 


IMY 






54 


LDA 


«7),Y 


;2EME LETTRE 


55 


BPL 


u 


;D0IT EIRE EM ASCII NEGATIF 


56 


LDY 


£4 




57 


LDA 


<$7),Y 




58 


CMP 


£1 


; TABLEAU A 1 SEULE DIKEMSim 


59 


BNE 


Si 


iSINm -> ERR EUR 


60 


IMY 





Pom's n° 18 



Concert idnl chaque variable, il fau- 
dra en outre en preciser : 

• la longueur (si cette derniere n'est 
pas pertinente pour vos traite- 
ments, fixez-la a 255 caracteres); 

• k type : pour des donnees al- 
phanumeriques. 1 pour des don- 
nees numeriqucs. 

Les longueurs seront stockees dans 
un tableau d'entiers a une seule di- 
mension (baptisons-le TL%). el les 
types dans un autre tableau de 
mcmc nature (soit TT%, par exem- 
ple). Quant aux donnees elles- 
memes. elles seront affertees dans 
un tableau de chaines de caracteres 
(TVS. par exemple). 
Ces trois tableaux doivent avoir un 
nombre d'elements identique et il est 
preferable de les dimensionner en 
conspqiipnre avant toute operation 
dc saisie. 

Une fois les differents tableaux defi- 
nis, les longueurs et types charges 
(par I'intermediaire de DATAs ou par 
tout autre rnoyen) et les libelles affi- 
ches. vous disposez de deux instruc- 
tions pour realiser la saisie : 

• ]5TV$.TL%;rr^, 

• :]DTV$.TL%,TT% 

L'instruction :]S... permet une saisie 
pure et simple : le tableau de varia- 
bles est considere comme "vide" et il 
faut enrrer autant de donnees qu'il y 
a d'indices dans ce tableau. 

L'instruction :]D.. en revanche, affi- 
che d'abord le contenu du tableau 
avant de passer a la phase He saisie 
Souls les elements a modifier necessi- 
tent alors une nouvelle frappe. Cette 
instruction peut d'ailleurs servir dans 
un but dc consultation des donnees. 
saris alteration de leurs valeurs. 

Le caractere "J" constitue l identitica- 
teur de nos ordres de saisie; il est 
obligatoire et doit toujouis etie pre- 
cede de " ". meme sil vient en tout 
debut de ligne ou apres un THEN 



Fonctionnement 
de la saisie 

Des qu elle rencontre un caractere 
"]". la routine commence par explo- 
rer I ecran pour y trouver les libclles 
et les transformer de NORMAL en 
INVERSE Les donnees 6tam ensuiie 
ailichees en NORMAL, cette diffe- 
rence de mode video permettra de 
les distinguer des libelled 
11 est preferable de ne pas mettre 
d'espaces a I'interieur des libelles et 
de les remplacer. par exemple. par 
des points 

Si vous le souhaitez. vous pouvez in 
diquer a I'ecran la longueur maxi- 
male autorisee pour une donnee en 
affichant, a la suite du libelle corres- 
pondant. un nombre egal de caracte- 
res "souligne" (rode clavier #$DF) 
Ces caracteres seront traites comme 
des espaces par la routine et reste- 
ront en mode NORMAL 

Pom's n° 18 



if 
ol 


1 ftA 

LDA 


<S7) ,Y 


kl 
M 


CTA 


4 t A 

lift 


kl 


INT 




id 


LDh 


/CT\ V 


N 


CTA 


♦ 17 


66 


CLL 




6/ 


LDh 


$7 


20 

6o 


adc 


17 


69 


Sift 


A *1 


70 


BCC 


S8 


■71 
ft 


hip 
INC 


A A 

♦8 


72 SB 


I r\\i 

LDY 


Ml 


73 


LEW 


($88) ,Y 


fA 

7*. 


(HP 


r- / I 

' l 


/D 


fm if- 

bnc 


S6 


"71 


JSR 


KOO 


77 

II 




vo 


10 KOU 


fCO 

JSK 


581 


TO 

n 


ICO 

JSK 


$F/Dy 


on 
80 


LDY 


£0 


81 


LDA 


(t9B).Y 


0*1 


QUI 

AMI 


KO 


OO Ui 

83 Kl 


Pl_A 




DJ 


Ol A 

PLA 




DC 

83 


■in 

JMP 


So 


02 va 
00 RO 


INt 




OT 

87 


1 r\ a 

LDA 


<$9B),Y 


oo 
88 


DDI 

BPL 


Kl 


87 


i n v 

LDY 


t A 


M 

TV 


LDh 


/AQH\ V 


01 
71 


Lnr 


£1 


01 


OMC 


Kl 


93 


INY 




OS 




/<OD\ V 

(*yB),Y 


M 
7j 


PUD 
WTT 




96 


bTit 


Ml 

Kl 


07 

77 


INY 




oo 
70 


LDA 


/ A OB \ V 

<fyB) ,Y 


00 

99 


run 

CMP 


519 


i nn 


BNt 


If 4 

Kl 


101 


RTS 






i r\A 
LDA 


* on 

$9B 


I AO 

103 


CLC 




1 ft A 

104 


ADC 


M ft 

£8 




OTA 




in* 

JUo 


i r\A 
LUh 


toe 


1U/ 


ftDC 


£0 


1 no 

108 


STA 


1£C 


i no 
10? 


i nv 

LDY 


£0 


tin 


1 AA 


/ A W\f\ \ \l 

CiB8) ,Y 


111 


PUD 


i . 


112 


ocn 


in 
K3 


f 1 

113 


JnP 


BA 
So 


114 I/O 


ICO 

J on 


KOO 


hi 
113 


i r\A 
LDA 


a on 


116 


CLC 




117 


ADC 


f8 


f 10 

118 


OTA 

STA 


a m 


1 1 
J I 7 


LDA 


< or 


1 on 
I/O 


aap 
ADC 


£0 


121 


STA 


«EE 


122 


LDA 


w 



iSAWEBARDE NOMBRE D'ELEMENTS 
iMflS LA DIHBiSKN 

i«7H8 POIMTE SUfi LE 1ER 

j ELEMENT DU TABLEAU 

I TESTE V AWNT LE 
iDEUXIEfff TABLEAU 
iSlNON -) ERRElffl 



jTHAITEMBfT DES TABLEAUX 
;D€ ■LtNGUEURS" ET 'TYPES' 



; TABLEAU ENTIER -) LES DEUX 

;LETTRES DOIUENT ETRE EN ASCII NE6AT1F 

jSINON -) ERREUR 



;TABLEAU A 1 DIMENSION SEULEMENT 



;LE N01BRE D'ELEMENTS DOIT ETRE 
;LE MEME BUE POUR LE TABLEAU 
;0€ VARIABLES A SAISIR 



;«EB-*EC POINTERA SUR LE POIDS FAIBLE 
;DE LA yflLFUR DU PREMIER ELEMENT 
iDU TABLEAU DES LQN6UEURS 



! TESTE ■/ AWNT LE TABLEAU DES "TYPES' 



iMBIE TRAITEMENT SUE POUR LES L0N6UEURS 



;*ED-1EE POINTERA SUR LE POIDS FAJBLE 
;DE LA PREMIERE WALEUR 

;DU TABLEAU DES TYPES 



Apres inversion des libelles. la main 
est donnee a Tutilisateur pour la sai- 
sie proprement dite. Le curseur est 
initialement place en haut a gauche 
de I'ecran; il est possible de le dcpla 
cer en tout point avec les quatre fil- 
ches de direction. 

Au niveau dcs caracteres entres. la 
routine procede aux contr61es sul- 
vants : 

— Pas d'offichage autorise sur les li- 
belles : seules les parties d'ecran en 
NORMAL (vierges ou non) sont ad- 
miscs pour la saisic / affichagc. 

- Pas de caracteres de contrdle, ni 
de V, ou guillemets, les virgules 
etant pour leur part remplacees par 
des points (probleme des caracteres 
separateurs et des guillemots aver les 
ordres PRINT). 

Chaque donnee doit se terminer par 
un RETURN. La frappe de cette lou- 
che se traduit a I'ecran par l'afftchage 
d'une barre oblique (dans le sens in- 
verse de "/" - code clavier #$DC). 
En clavier QWERTY, vous pourriez 
utiliser la touche correspondant a 
cette barre oblique directemenl en 
lieu et place de RETURN. 
11 s'agit la d'un simple sepaiateur de 
donnees : il s'affiche mais ne provo- 
que aucun autre deplacement du 
curseur que celui occasionne par les 
autres touches. 

11 n est nullement indispensable de 
saisir les valeurs exactcmcnt en re 
gard des libelles qui leur sont lies, 
sauf si vous avez besoin de vous pla- 
cer sur les eventuels "soulignes" 
pour etre sQr de ne pas depasser les 
longueurs prevues. 

Ainsi, si vous disposez "quclquc 
part" d'un nombre suffisant de posi- 
tions libres conrigiies a I'ecran. vous 
pouvez saisir toutes les donnees re 
quises en continu (a la suite les unes 
Hps autres), a condition de terminer 
chacune d'elles par un RETURN et 
de bien taper autant de RETURN 
que de donnees attendues (nombre 
d' elements dans le tableau des varia- 
bles). A noter que, comme a T habi- 
tude, une donnee "vide" se traduit 
par la frappe d'un simple RETURN. 
Par exemple : 

Dl puis RETURN et RETURN 

donnera "Dl" comme valeur pour le 
premier element du tableau et ' 
pour le second (chaine vide). 

En resume, des lors que vous respec- 
tez I'ordre des donnees ^entree dans 
Tordre des indices croissants du ta- 
bleau) et que vous terminez chacune 
par un RETURN, vous nnuvw Icq 
saisir en n'importe quel endroil auto- 
rise de I'ecran, individuellement. en 
un seul bloc, ou en sous-ensembles 
continus. 

La frappe de la touche ESC marque 
la fin de la phase de saisie et declen- 
che lanalyse de l ecran par la rou- 
tine, qui comporte les controles sui- 
vants : 



123 


CMP 


t'S' 


124 


BED 


S7 


125 


JMP 


SD 


124 S7 


LDA 


£0 


127 


TAY 




128 


STA 


$24 


12? 


STA 


♦25 


130 


JSR 


♦FBC1 


131 Al 


LDA 


(♦28) ,Y 


132 


STA 


♦? 


133 AA1 


JSR 


♦FDOC 


134 


LDY 


♦24 


135 


LDX 


♦25 


134 


04P 


(488 


137 


re 


AO 


138 


CPX 


fO 


139 


BEO 


Al 


140 A10 


DEC 


♦25 


Ml A3 


JSR 


♦FC22 


142 


JMP 


Al 


143 AO 


OP 


f»8A 


144 


BNE 


A2 


145 


CPX 


£♦17 


144 


BEO 


Al 


147 A6 


INC 


♦25 


148 


BNE 


A3 


14? A2 


CMP 


nn 


150 


BNE 


A4 


151 AA2 


CPY 


£♦27 


152 


re 


A5 


153 


CPX 


£♦17 


154 A? 


BEQ 


Al 


153 


LDY 


£0 


154 


STY 


♦24 


157 


BEQ 


A6 


158 A5 


INC 


♦24 


15? 


I NY 




140 


JMP 


Al 


141 A4 


CMP 


£♦88 


142 


re 


A7 


143 


CPY 


£0 


144 


re 


A8 


165 


CPX 


£0 


144 


BEQ 


A? 


147 


LDY 


£♦27 


168 


STY 


♦24 


16? 


re 


AID 


170 A8 


DEC 


$24 


171 


DEY 




172 


JMP 


Al 


173 A7 


CMP 


£l?8 


174 


BEQ 


EO 


175 






174 


LDA 


«? 


177 


CMP 


£♦40 


178 


BCS 


All 


17? 


PLA 




180 


JMP 


AA1 


181 All 


PLA 




182 


CMP 


f$8D 


183 


BNE 


A12 


184 


LDA 


(♦DC 



iREPRlSE DU TRAITEHENT DES C&mflJES 



iON COMMENCE EN HAUT DE L'ECRAN 

; SAM GARDE DE L'OCTET SOUS LE CURSEUR 
jSAISIE AU CLAVIER 
;Y=P0S1TI0N H0RIZCNTALE 
;X=P0SITI0N VERT1CALE 
jFLECHE VERS LE HAUT ? 

j VERIFIER SI L'ON PEUT ■REMCNTER" 



5 VTA8 

jFLECHE VERS LE BAS ? 

[VERIFIER SI ON PEUT 'DESCENDRE" 

jFLECHE VERS LA DR01TE ? 
iPEUT-ON ALLER A DR0ITE ? 



jFLECHE VERS LA GAUCHE ? 
jP€UT-0N ALLER A GAUCHE ? 



;"ESC" ? 

jOOl -> SORTIE POUR ANALYSE DE L'ECRAN 



jPAS D'ECRITURE SUR LES LIBELLES EN IWERSE 



jSl 'RETURN' --> AFFICHER V (£4DC) 

Pom's n° 



- Verification de la longueur des 
donnees par rapport aux longueurs 
maximales dcclarees dans le tableau 
ddequat; si une donnee "deborde", 
un crochet en FLASH est affiche a sa 
suite (il ecrase le RETURN) et la rou 
tiiifcf reprend une phase de saisie 
pour correction. 

A noter que tous les espaces compris 
entre les caracteres d'une meme 
donnee comptent dans sa longueur, 
alors que ceux qui se trouvent a Tex- 
terieur (entre un RETURN et le pre- 
mier octet de la valeur suivante. par 
exemple), sont ignores. 

- Pour les donnees de typf* numeri- 
que. les caracteres autorises sont : les 
chiffres. "'+" et 7". Aucun 
espace, ni "souligne", nest autorise 
a I'interieur d'une valeur numerique. 
Si on trouve un caractere non 
conforme, il est prrase par une "*" 
en FLASH et la saisie reprend. 

- Jamais de donnees comptant plus 
de 255 caracteres; dans le cas 
contraire. un "]*' en FLASH est affi- 
che a la fin de la donnee trop longue 
et la saisie reprend dans les memes 
conditions que ci-dessus. 

- Exactement autdni de RETURNs 
que de variables attendues. ni plus, 
ni moms. Sinon. reprise de la saisie. 
accompagnee d'un beep. 

Si tous ces contrdles sont satisfaits, la 
routine procede direrrpment a 1'a.ffpr- 
tation des chaines de caracteres au 
tableau de variables defini en entree, 
a partir de l'element d'indice Les 
donnees sont alors utilisables par 
toutes instructions Basic ou DOS. 

Particularites du 
pre-affichage 

Lors d'une instruction : |D T$. la 
routine affiche le contenu des varia- 
bles de T$ avant de passpr a la sai- 
sie. Pour ce faire. elle cherche a toca- 
liser des libelles en partant de la fin 
de I ecran (en bas a droite) et s'ar- 
rete des qu'ellc atteint le debut de 
Feciaii ou qu'elle trouve autant de li- 
belles que de donnees d affirher 
De ce fait, il convient de placer les 
autres textes eventuels en haut 
d ecran et de n'affirher ensuite que 
des libcllcs "utiles" 

Les donnees sont restituees dans 
lordre croissant des indices, en re- 
gard et a la suite des libelles corres- 
pondants. Le RETURN final est auto- 
matiquement a.ioiitP a la fin des 
caracteres 

Si vous n'avez pas mis asset de 
textes a 1'erran. vous obtiendrez une 
SYNTAX ERROR lorsque la routine 
tentera d'afficher les valeurs. 

La saasie est idenrjque pour:]S 
et JD Pour certe derniere. routefois. 
il peut etre bon d'eulrer les nouvelles 
valeurs "sur" les anciennes. en les 
ecrasant, plutot que de les mettre 
dans une partie vierye de l ecran, et 
ce afin de ne pas laisser a l affichage 
plus de donnees qu'il n'en faut. 

Pom's n° IX 



185 mi 


STA 


(«28),Y 


jAFFICHE LE CARACTERE SAISI 




JhP 


AA2 




187 M2 


Off 


£tA0 




188 


BCS 


AI3 




18? AA12 


JHP 


AA1 


;PAS DE CARACTERES DE OTfTROlE 


190 A13 


CHP 


MA2 




191 


BEG 


AAI2 


;PAS DE ' 


192 


ChP 


MBA 


jPAS DE ! 


193 


BEQ 


AA12 


194 


DIP 


£«BB 


iPAS DE i 


195 


BED 


AA12 


196 


mp 


£«AC 




197 


BNE 


AAJ] 




198 


IDA 


£*AE 


|REMPLACE LES VIRGULES PAR DES POINTS 


199 


BNE 


AA11 




200 EO 


LDA 


%7 


(ANALYSE DE L'ECRAN 


201 


STA 


♦ID 


[RECOPIE DE TOUS LES PARAMETRES 


202 


LEW 


$8 


[DANS DES ZONES DE TRAUAIL 


203 


STA 


♦IE 




204 


LM 


«EB 




205 


STA 


*F? 




206 


LDA 


SEC 




207 


STA 


tFA 




208 


LDA 


SED 




209 


STA 


SFB 




210 


LDA 


SEE 




211 


STA 


SFC 




212 


LDY 


(0 




213 


LDA 


<$FB),Y 


jMEMORISE LE TYPE DE LA PREMIERE DOWEE 


2H 


STA 


$FF 




215 


LDA 


fO 




216 


STA 


$18 


;NGMBRE DE DOWEES TROUPES SUR L'ECRAN 


217 


STA 


lit 




218 E00 


LDA 


fiAO 


iCONTROLERA L' USAGE DES ESPACES 


219 


STA 


♦18 




220 


LDA 


f*DF 


;CCNTROLERA L'USAGE DES ■_' 


221 


STA 


SFE 




222 


LDX 


£0 




223 


TXA 






224 


STA 


S25 




225 E4 


JSR 


♦FBC1 




226 


LDY 


£0 




227 E3 


LDA 


<S28),Y 




228 


CMP 


£$40 




229 


BCC 


El 


;LES CARACTERES INVERSE NE SONT PAS DES DOWEES 


230 


DIP 


£*DC 


[•RETURN' A L'ECWN ? 


231 


BEQ 


E2 




232 


CPX 


fSFF 


;255 CARACTERES DEJA LUS POUR UNE HEME D0M4EE ? 


233 


BEQ 


E2 




234 


Off 


£$A0 


i'ESPACE' ? 


235 


BEQ 


B0 




236 


mp 


£$DF 


i'J ? 


237 


BEQ 


B01 




238 


STA 


$18 




239 


STA 


$FE 




240 


LDA 


$FF 




241 


BEQ 


EDI 


[TYPE ALPHANIKERI9UE ») OK 


242 


LDA 


$18 




243 


mp 


f$AB 


;ACCEPTE LE * 


244 


BEQ 


E0I 




245 


mp 


£$AD 




246 


BCS 


E010 





Par ailleurs. si vous souhaitez inciter 
a une saisie initiale en regard des li- 
belles et non en continu. vous pou 
vez initialiser votre tableau de varia- 
bles en ne lui affectant que des 
rhaines vides et utiliser une instruc 
rJon:]D plutot que .]S. Le pre-affi- 
chage de tous les RETUKNs juste 
apres les libellcs correspondants 
constituera une coiiUdiiUy de posi- 
uonnement pour l utilisateur. 

Mode demploi 

II convient de placer les instructions 
suivantes cn tete de votre pro- 
gramme Basic d'exploitarion : 

• BLOAD IPE2 : chargement de la 
routine de saisie en $9000. 

• BLOAD INTER : mise en place 
dans CHRGET ($B1) d*un aiguil- 
lage sur norre routine IPE2. afin 
de detecter les "]" d'identification 
evcntuels dans le programme Ap- 
plesoft. Ce second BLOAD ne 
doit jamais venir avant celui de 
IPE2. sous peine de resultats im- 
pr^visibles... 

Pour revenir au Basic standard, il 
suffit de charqer par un BLOAD ie 
petit firhiPr baptist CHRGET. 

Telle qu elle vous est presentee ici, 
cette routine de saisie d'ecran est 
susceptible de nombreux perfection- 
nements. On peut songer. par exem 
pie, a un alignemeiil aulomatique sur 
le libelle suivant lors de la frappe 
d'un RETURN, ou a une adaptation 
pour ccwttf 80 colonnes, a I'emploi de 
touches de fonction pour detruire ou 
inserer des caracteres... Si le sujot 
vous interesse. a vous de jouer... 



INTER 

*BA . BD 

00BA- 4C 00 90 

CHRGET 

*BA . BE 

00BA- C? 3A B0 OA 



LPE2 

*9000.99D5 

9000 C9 50 F0 08 C9 3A 90 01 

9008- 60 4C BE 00 A? 00 85 23. 

9010- 20 C! F8 AO 00 Bl 28 C9 

9018- AO FO 0C C9 DF FO 08 C? 

9020- 40 90 04 29 3F 91 28 C8 

9028- CO 28 00 E9 E6 25 A5 25 

9030- C9 18 00 DC 20 Ol 00 C9 

9038- 53 F0 OA C9 44 F0 06 20 

9040- 99 F3 4C C9 DE 85 06 20 

9048- Bl 00 20 09 F7 A5 9B 85 



247 EOil 


LDA £$# 


;RIEN EN DESSOUS DU ■-' 


248 


STA ($28) ,Y 


iERREUR DE TYPE -> AFFICKE UNE f EN FLASH 


24? 


JSR $FBDD 


j BEEP ! 


250 


JhP S7 


jREPREND LA SAISIE AU DEBUT 


251 E0I0 


cup tm 


252 


BCS E011 


;AU DESSUS DE *!" --> ERREUR D€ TYPE 


253 Efll 


LDA $18 




254 


BNE 61 




255 BO 


DIP $18 




256 


BEQ El 


jGN NE PREND PAS LES "ESPACES 1 HORS DES DONNEES 


257 


LDA $FF 




258 


BNE £011 


iPAS D'ESPACE A L'JNTERIEUR DES N0NBRES 


259 


LDA £$A0 




260 


BNE Bl 




261 601 


DIP $FE 


jON NE PREND PAS LES '_' HORS DES DONNEES 


262 


BEQ El 




263 


LDA $FF 




264 


BNE EOU 


iPAS DE '_• DANS LES ND1BRES 


265 


LDA £$DF 




266 Bl 


STA $200 ,X 


! STOCKS LE CARACTERE DANS LE BUFFER DE DONNEES 


267 


■ami 

M 




268 El 


Off 




26? 


CPY £$28 


;PASSA6E AU CARACTERE SU1WMT SUR L'ECRAN 


270 


WE E3 




271 


INC $25 




272 


LDA $25 




273 


CMP f$18 




274 


BNE E4 




275 


JMP CO 


jL'ANALYSE DE L'ECHAN EST TERNINEE... 


276 E2 


LDA 111 


111 


CMP $1A 


|*1B-«1C DOIT T0UJ0URS EIRE INFERIEUR 


278 


BCC E5 


id MMM PUISUUE L'ON COMPTE LES 


279 


LDA $18 


;D0NNEES A L'ECRAN A PAR71R DE 


280 


01P $19 




281 


BCC E5 




282 El 1 


JSR $FBD0 


[PLUS DE DDNNEES OUE DE VARIABLES --> ERREUR 


283 


JMP 57 




284 E5 


CPX £$FF 




285 


9Nf E6 




286 E50 


LDA £$50 


;D0NNE£ TR0P L0N6UE --> AFFICHE UN J EN FLASH 


287 

inn 

288 


STA ($28) ,Y 
JSR $FB00 




289 


JMP S7 


;ET REPREND LA SAISIE 


290 E6 


STY $1F 


jSAUVEGARDE LA UWLEUR D€ Y 


291 


LDY £0 




292 


TXA 




293 


CMP C$F9),Y 


;CONTR0LE •LONGUEUR' LUE PAR RAPPORT 


294 


BCC E60 


iA "LQN6UEUR HflXl" POUR LA OGNNEE 


295 


■pa m i ja 

BEQ E60 


296 


LDY $1F 




297 


BCS E50 


jSIBNALE LE DEPASSB1ENT ET REPREND LA SAISIE 


298 E60 


pw 


AAA 

299 


CLC 




300 


LDA $f? 




30! 


ADC £2 


jPASSE A LA LONGUEUR DE LA DOMSEE SUIVWTE 


302 


STA $f9 




303 


BCC E61 




304 


nut >r , 

IMC *FA 




305 E6I 


clc 




306 


LQA <FB 


| PASSE AU TYPE DE LA DONNEE SUIWNTE 


307 


ADC 12 




308 


STA *FB 





Pom's n° 18 



90 50- 
90 58- 
90 60- 
9068- 
90 70- 
90 78- 
90 80- 
90 88- 
90 90- 
90 98- 
90A0- 
90A8- 
90 80- 
90B8- 
90C0- 
90C8- 
90 00- 
90D8- 
90F0- 
90E8- 

90 FO- 
90F8- 

91 00- 
91 08- 
91 10- 
91 18- 
91 20- 
91 28- 
91 30- 
91 38- 
91 40- 
91 48- 
91 50- 
9158- 
91 60- 
9160- 
91 70- 
91 78- 

yi yo- 

91 88- 
91 90- 
91 98- 
91A0- 
91AQ- 
91 BO- 
91 88- 
91 CO- 
91 C8- 
91 DO- 
91 08- 

91 EO- 
91E8- 
91F0- 
91F8- 
9200- 
9208- 

92 10- 
9218- 
9220- 
9229- 
9230- 
9238- 
9240- 
9248- 
9250- 
9258- 
9260- 
9268- 
9270- 
9278- 
9280- 
9288- 
9290- 
9298- 
92A0- 
92A8- 
92B0- 
92B8- 
92CQ- 
92C8- 
92D0- 
92D8- 
92EQ- 
92E8- 
92F0- 
9?F9- 
9300- 
9308- 
9310- 

Pom's 



07 A3 9C 
0/ 30 E4 
AO 04 Bl 
C8 Bl 07 
85 19 18 
07 90 02 
B8 C9 2C 
4C B8 90 
f-7 AO 00 
68 4C 3F 
F6 AO 04 
EE C9 Bl 
C8 Bl 9B 
A5 9B 18 
9C 69 00 
B8 C9 2C 
20 8B 90 
85 ED A5 
A5 06 C9 
92 A9 00 
20 CI FB 
OC FD A4 
DO OC EO 
20 22 FC 
DO 09 EQ 
DO EE C9 
DO OA EO 

84 24 FO 
F3 90 C9 
DO OA EO 
8*4 24 DO 
F3 90 C9 
09 C? 40 

90 68 C9 

91 28 4C 
03 4C F7 
C9 BA FO 
C9 AC DO 

A5 7 85 
A5 E8 85 
A5 ED 85 
AO 00 Bl 
95 19 S5 
A9 DF 95 
25 20 CI 
C9 40 90 
EO FF FO 
C9 DF FO 
A5 FF FO 
FO 12 C9 
91 28 20 
C9 BA BO 
C5 18 FO 
A9 AO DO 
A5 FF DO 

02 ES ca 
25 A5 25 
83 92 A5 
A5 IB C5 
FB 4C E9 
A9 50 91 
E9 90 84 
F9 90 06 
E7 48 18 
F9 90 2 
69 02 85 
Bl FB 85 
ID FO 28 

85 6F BO 
6F 91 ID 
A2 00 AO 
7F 91 6F 
C9 DO Fl 
1C A4 IF 
18 A9 DF 
69 03 85 
4C OA 92 

03 4C 26 
DO F7 4C 
IB 85 1C 
25 20 CI 
C9 AO FO 
A6 06 DO 
A6 6 FO 
DO 2 E6 
DO 6 A5 
88 10 03 
C8 A9 00 
OB C8 CO 

n° 18 



85 
C8 
07 
85 
A5 
E6 
DO 
20 
Bl 
90 
Bl 
9B 
C5 
69 
85 
FO 
A5 
9C 
53 



08 
Bl 
C9 
1A 
07 
OS 
BA 
Bl 
9B 
C8 
9B 
C5 
19 
08 

tc 
03 
9B 
69 
FO 



A8 85 
Bl 28 
24 A6 
00 FO 



4C 
1 7 
95 
1 7 
EA 
88 
00 
C2 
96 
BO 
8D 
IE 
90 



F3 
FO 
00 
FO 
E<6 
DO 
FO 
C<5 
FO 
04 
DO 
91 
C9 



13 SS 



AO 00 Bl 
07 10 DF 

01 DO D7 

C8 Bl 07 
69 07 85 

AO 00 Bl 

20 8B 90 

00 20 D9 

30 05 68 

Bl 9B 10 

C9 01 DO 

1A DO E7 

DO EO 60 

85 EB A5 

AO 00 Bl 

4C 3F 90 

18 69 08 

00 85 FF 

03 4C C5 

24 85 25 
85 09 20 

25 CV 8B 
ED C6 25 
90 C9 8A 
DO E6 25 
14 CO 27 
CD AO GO 
24 C8 4C 
14 CO 00 
E6 AO 27 
24 88 4C 
32 43 A5 
68 4C F7 
07 A9 DC 
C9 AO 80 
A2 FO F9 

m F o°o & 



1 D A3 08 

F9 A5 EC 

FB A5 EE 

FB 85 FF 

1C A9 AO 

FE A2 00 

FB AO 00 

4£ C9 DC 

56 C9 AO 

30 85 18 

18 A5 18 

AD BO OA 

DO FB 4C 

F2 A3 18 



83 IE 

85 FA 

85 FC 

A9 00 

65 18 

8A 85 

81 28 

FO 3A 

FO 28 

85 FE 

C9 AB 

A9 6A 

E9 90 

DO 16 



\A A5 
OA C5 
DA A9 
CO 28 
C9 IS 
1C C5 
19 90 
90 EO 
28 20 
IF AO 
FO 04 
A5 F9 
E6 FA 
FB 90 
FF 68 
38 A5 
02 C6 
C8 A3 
00 BD 
E8 E4 
E6 IS 
A2 00 
85 FE 
ID 90 
A5 1C 
92 A5 
B7 00 
85 06 
FB AO 
OC C9 
1C E6 
14 C6 
1C A5 
19 C5 
C6 25 
85 24 
28 DO 



FF DO E6 
FE FO OA 
DF 9D 00 
DO A7 E6 
DO 9A 4C 
1A 90 OC 
06 20 DD 
FF DO OA 
DD FB 4C 
00 8A Dl 
A4 IF BO 

69 02 85 
18 A5 FB 
02 E6 FC 
B5 06 91 
6F Fl ID 

70 C8 A3 
70 91 ID 
00 02 29 
06 FO 03 
DO 02 E6 
A9 AO 85 

18 A3 ID 
02 E6 IE 
C5 1A FO 
IB C5 19 
A9 00 85 
A9 17 85 
27 Bl 28 
DF FO 08 
06 DO 
06 E6 
IC C5 1A 

19 FO il 
A5 25 10 
85 25 FO 
04 AO 00 



18 
IB 



309 


BCC 


E62 


310 


INC 


$FC 


311 £62 


LDA 


<$FB),Y 


312 


STA 


$FF 


313 


PLA 




314 


STA 


$6 


315 


STA 


($10) ,Y 


316 


BEQ 


n 


317 


SEC 




318 


LDA 


$6f 


31? 


S8C 


<$1D),Y 


320 


STA 


t&f 


321 


BCS 


E8 


322 


DEC 


♦70 


323 E8 


INY 




324 


LDA 


$6f 


325 


STA 


<$1D),Y 


326 


INY 




327 


LDA 


$7C 


328 


STA 


<$1D),Y 


329 


LDX 


£0 


330 


LDY 


£0 


331 E9 


LDA 


$200 ,X 


332 


AND 


f$7F 


333 


STA 


($<SF),Y 


334 


INK 


333 


CPX 


$6 


336 


BEQ 


E7 


337 


INY 




338 


BNE 


E? 


33? E7 


INC 


SIB 


340 


ENE 


E10 


341 


INC 


$1C 


342 El 8 


LDY 


$1F 


343 


LDX 


£0 


344 


LDA 


£$AQ 


345 


STA 


$18 


346 


LDA 


f$DF 


347 


STA 


$FE 


348 


CLC 




34? 


LDA 


$10 


350 


ADC 


£3 


351 


STA 


$1D 


352 


BCC 


E1Q0 


353 


INC 


$IE 


354 £100 


JMP 


EI 


355 CO 


LDA 


$1C 


356 


CMP 


ilA 


357 


BEQ 


CI 


358 C2 


JMP 


Ell 


359 CI 


LDA 


$1B 


360 


CMP 


$1? 


361 


BNE 


C2 


362 


JMP 


$87 


363 SD 


LDA 


£0 


364 


STA 


$18 


365 


STA 


tic 


366 


STA 


$6 


367 


LDA 


£$17 


368 


STA 


$25 


36? SD5 


JSfi 


$FBC1 


370 


LDY 


£$27 



iSTOCKE LE TYPE 

iSAWE6ARDE L0N6UEUR REELLE 

;LA STOCKE DANS LA ZONE DES TABLEAUX 

jLGM6UEUR = --> PAS DE "CHAINE" A STOCKER 

;HISE A JOUR DU P0IN7EUR DE FIN DE LA ZCNE 
;DE ST0CKA6E DES CHAINES DE CARACTERES 



; STOCKE L'ADRESSE DE LA CHA1NE AU NIVEAU DE 
jL'INDICE CQNCEWE MNS LA ZONE DES TABLEAUX 



jTRANSFERT DE LA CHAM DANS LA ZONE DE 
[STOCKAGE APRES REMISE EN ASCII POSITIF 



ifflSE A JOUR DU NOMBRE DE DGNNEES LUES 



i REMISE A LA VALEUR INITIALE DES PARAMETRES 



jADRESSE DE L'ELEMENT SUIVAMT DU TABLEAU 
;S'1L EN RESTE A SAISIR 



;PASSA6E AU CARACTERE SUIWfT SUR L'ECWM 



;A CE NIVEAU, LE CCNPTEUR DE VALEURS LUES 

iEST HAJORE DE 1 ET DOIT DONC ETRE EfiAL 
;AU NOHBRE DE DQNNEES ATTENDUES 

;R9to LA MAIN AU BASIC 

jREPRISE POUR AFFICHA6E ET SAISIE O'LN TABLEAU 



; RECHERCHE DES LIBELLES A PARTIR 
;DU BAS DE L'EOWN 



9318- 


B6 


25 


84 


24 


A9 


00 


85 


IB 


9320- 


85 


IC 


A5 


07 


85 


ID 


A5 


08 


9328- 


85 


IE 


AO 


00 


A2 


00 


BL 


ID 


9330- 


85 


06 


FO 


IB 


C8 


Bl 


ID 


85 


9338- 


CE 


cs 


Bl 


ID 


85 


CF 


AO 


00 


9340- 


Bl 


CE 


09 


80 


90 


00 


02 


E8 


9343- 


E4 


06 


FO 


03 


C8 


DO 


Fl 


A9 


9350- 


DC 


90 


00 


02 




06 


A2 


00 


9358- A5 


25 


20 


CI 


FB 


A4 24 Bl 


9360- 


28 


C9 


40 


90 


IE 


BD 


00 


02 


9368- 91 


28 


E9 


E4 


06 


FO 


2A 


C8 


9370- 


CO 


28 


DO 


n 


E6 


25 


A5 


25 


9378- 


C9 


18 


FO 


14 


20 


CI 


FB 


AO 


9380- 


00 


FO 


E2 


C8 


CO 


28 


DO 


D7 


9338- 


E6 


25 


A5 


25 


C9 


1 8 


DO 


03 


9390- 


4C 


3F 


90 


AO 


00 


84 


24 


FO 


9398- 


CI 


E6 


IB 


DO 


02 


E6 


IC 


A5 


93A0- 


1C 


C5 


1A 


oo 


09 


A5 


IB 


C5 


9 3A8- 


19 


DO 


03 


■4C 


E9 


90 


C9 


CO 


9380- 


28 


DO 


OD 


E6 


25 


A5 


25 


C9 


93B8- 


18 


FO 


D3 


20 


CI 


FB AO 


00 


93C0- 


Bl 


28 


C9 


40 


BO 


E8 


84 


24 


93C8- 


A5 


ID 


69 03 


85 


ID 


90 


02 


93D0- 


£6 


IE 


4C 2A 


93 











bug du 



S 1.0 



Si Ton formate (Volume Commands. 
Option F) une disquette dont le nom 
comporte dcs minuscules, la 

disquette ne sera pas formatee 




nectement. 



- Un CAT ne fonctionne pas . 
Certaines commandes du Filer, 
exemple Detect bad blocks, 
ck allocation, R)ename a 
jme..., entrainent un 'VOLUME 
}T FOUND" tandis que L)ist 
volumes indique I'existence de ce 
volume. 

Conclusion puisque le Filer ne 
met pas automatiquement le nom de 
la disquette en majuscules, faites-le 



371 SD4 LDA ($28) ,Y 



372 


CMP 


£«0 


373 


BEQ 


SDO 


374 


CMP 


f IDF 


375 


BEQ 


SDO 


276 


LDX 


U 


377 




CM 

SDI 


378 


twp 
INC 


fo 


"i in 

379 


BNE 


SDI 


380 S00 


LDX 


U 


391 


BEQ 


SOI 


382 


DEC 


♦6 


383 


INC 


♦ IB 


384 


BNE 


S02 


383 


INC 


tie 


384 SD2 


LDA 


♦IC 


387 


CMP 


iiA 


388 


BNE 


SO! 


38? 


LDA 


tie 


m 


CMP 


119 


391 


BEQ 


S03 


392 SDI 


OEY 




393 


BPl SM 


394 


DEC »25 


395 


LDA 


$25 


394 


BPL 


SD5 


397 


LDA 


£0 


398 


STA 


♦ 24 


m 


STA 


$23 


400 


BEQ 


SD6 


401 SD3 


INY 




402 


err 


£♦28 


403 


BNE S07 


404 


LDY !0 


405 


INC 


♦25 


40< S07 


STY «4 


407 SD6 


LDA 


fO 


408 


STA 


♦IB 


409 


STA 


MC 


410 


LDA 


♦7 


411 


STA 


♦ID 


412 


LDA 


♦8 


413 


STA 


♦IE 


414 SD21 


LDY 


£0 


415 


LDX 


£0 


416 


LDA 


($1D),Y 


417 


STA 


t6 


418 


BfeQ 


SD80 


419 


INY 




420 


LDA 


(♦1D),Y 


421 


STA 


♦CE 


422 


INY 




423 


LDA 


(♦10) ,Y 


424 


STA 


♦CF 


425 


LDY 


£0 


426 SD9 


LDA 


(«CE),.Y 


427 


ORA 


£♦80 


428 


STA 


♦200.X 


429 


Dtt 




430 


CPX 


♦6 


431 


BEQ 


SD80 


432 


INY 





;LAISSE LES ESPACES ET LES »J 

I&RAPEAU POUR SAVOIR SI L'ON EST DANS UN HEME 
iLIBELLE OU SI L'ON Bj C0H4ENCE IN NOUVEAU 



;QUAND ON RETROWE UN ESPACE OU UN " " APRES 
{ANALYSE O'W L I BEL LE Bi INVERSE, IL~Y AURA 
;LNE DCWEE A NETTRE EN RE6ARD DE CE LIBELLE 



;0N DOIT LOCAL] SER AUTANT DE LIBELLES QUE 
;DE DONNEES A AFFICHER 

iPOURSUITE DE L 'ANALYSE DE L'ECRAN 



; DEPART DE L'AFF1CHA6E DCS DtNIEES 



jRECUPERE LA L0N6UEUR DE LA CHAINE 
jLONSUEUR = --> PAS DE CHAINE A AFFICHER 

jRECUPERE L'ADRESSE DE LA CHAINE 



jTRANSFERT DE LA CMINE OANS LE BUFFER 
jAPRES REMISE EN ASCII NESATIF 



Pom's n° 18 



I'M 

4AJ 


DTlt DU7 


Aid cnan 


LUH t »Ul, 


ill 
4jj 


CTA «tOflft Y 


4J6 


TMT <X 

iru. >0 


477 cno 
4 or out) 


i nv r n 


1 Jo 


1 ftd 47*v 


4*39 cm s 


1QD <pnn 

uOn rTOUl 


41U 


LUT >*4 


44i cnn 
Hi jD13 


LUH 1*40/ f! 


44? 


pup 4440 




BCC 501 


444 SOI 2 


LDA *200,X 


445 


STA ($28) ,Y 


44 J 

446 


tuv 
irw 


447 


CPX $6 


44Q 
440 


pen cm i 

OtU 0U11 


449 


I MY 
' i 


4sn 


CPY (478 


431 


tNF CJH7 
Bit 0U14 


4=;? 


1MT < 7S 


4jo 


LUH »4J 


4D4 


PHP fiia 




pen cni A 


4SZ 

436 


Jan •TDi*i 


4S7 
ID/ 


LUI I U 


4SR 


RPR cnt 7 


437 oDIU 


jr4i 


4/n 
460 


LrY tl/o 


441 


OKIE cm 7 
trie aula 


46/ 


IMP 47*i 
1NL ?IJ 


440 

46o 




HA 

46^ 


UT l»lo 


4X^ 

460 


njr cm 4 
tut aun 


44 4 CA1 4 
466 Wi6 


i4P Q4 

orr ao 


46/ bUJ4 


LUT tu 


440 

46o 


pry 494 

Oil 9i*\ 


440 
467 


pen cm* 


1/U OtvJl 


INT 11 R 


471 

4/1 


Eric awl/ 


nil 


TMT 41 r 


470 en 1 7 

4/3 am/ 


i iv> 4ir 


474 
4/4 


rwp 4|A 


47* 

4/ J 


one ouio 


4/6 


1 fVt 41R 

LUH VlD 


477 

4/ / 


rwp 410 


4 ZU 

4/0 


onf cm q 
ait dui o 


470 

4/y 


MP C7 
Xlr 0/ 


4 (XI CIVIO 

4lfU blMH 


in! 


401 
401 


Uri X*40 




ONE Qfil 


407 
45J 


TUT 47S 


404 


1 ftt 47*t 


404 

403 


r«4P f41Q 


404 
456 


KQ Cftl A 
Kb OU10 


407 
40/ 


J CD 4FP,n 


400 
4b0 


i nv /n 


439 Cm 9 
407 3111 7 


LUH IV4DJ 1 1 


4YU 


D4p f44fl 

tnr t>iu 


401 

4x1 


ore cfti o 

W_b suit) 


407 
4/4 


ctv 474 


493 


LDA 41 D 


494 


ADC n 


Pom's n° 


18 



;PWCE IN -PSEUDO RETUSN" EH FIN DE DINSEE 



;PR07E6E LES DONEES EN INVERSE 
iRECOPIE LA CHMNE 5UR L'EOMN 



jCWINE TEHMINEE ? 



|PfiSSA6£ A POSITION SOItMNTE SUR L'ECIW 



;CN NE DEVRAIT JAMAIS TOUCHER iA FIN DE L'ECWN 



-.SUITE DE L'AFFICm6E 

; SAUTE LES 'INVERSE" AVWfT DE COMMENCER 

iA AFFICHER LA CHAINE 



;FIN DE L'ECWN SANS FIN D'AfFICHA6E --> ERREUR 



JMISE A JOUR DU NOMBRE DE CHAINES AFFICHEES 



ITOUTES LES CHAINES NE SflNT PAS ENCORE AFFICHEES 



;IDEM 

;SINON -> REPREND ONE SAISIE 
;0N UEUT PASSER A LA POSITION SMWMTE A L'ECRAN 



;JANA1S LE BAS DE L'ECRPN NE DOIT EIRE ATTEINT 



jIL FAUT RELOCALlSfft LE LI BELLE SUIWNI 



iPASSE A L'INDICE SU1VANT DANS LE TABLEAU 



mm ih 
Su\n 



y@$r . . . 



[POET'S 



4J5 STA $1D 

i96 BCC SD20 

497 INC HE 

m SD20 JN> S02J [REPRISE DE IA PROCEDURE D'AFFICHA6E 



TEST.IPE2 

1 HIMEM: 9 * 4096 - 1 

5 D* = CHR* <4>: PRINT W6L0AD IPE2" : P 

RINT DS'BLOAD IhTTER 
10 TEXT s HOME 

15 PO* = - 



20 DIM Dl*<9) ,L!X(9) P T1Z<9) : FOR I = T 
O 9: READ UX(2) r TlXCI> I NEXT 

22 DATA 10,0,5,1 ,20,0,2,1 ,2,1 ,5,0,10,0, 
4,1 ,6,1,30,0 

25 DIM D2*<5) ,L2X<5) ,T2>C<5) : FOR I = T 
5: READ L2X< I > ,T2X< I ) : NEXT s DA 
TA 10, 0,6, 1,6, I, 20, 0,1,1, 6,0 

27 GOTO 100 

30 HOME :2* = ■ ECRAN NO 1 ■ : HTAB 20 - L 
EN <Z*) / 2: PRINT Z*: PRirfT 

33 FOR I = TO 9: PRINT : PRINT "DONNFE 
.■I-.<-TlX(I>">.:' LEFT* <P0»,L1XC 
I > ) : NEXT 

35 RETURN 

40 HOME iZ% = " ECRAN 1 MODI FIE": HTAB 20 
- LEN <Z*> / 2: PRINT Z*: PRIN1 
: PR1HT : PRINT 'DON.O.:" SPCC 15> 



'DON. t.l a 3 PRINT : PRINT 'D0N.2.: - 
SPC< 15)'D0N.3. : ■ 
45 FOR I - 4 TO 9: PRINT : HTAB 10: PRIN 

T "DON.-I-.: - LEFT* <P0*,L1X( I ) ) : 

NEXT ! RETURN 
50 HOME :Z* = "ECRAN 2": HTAB 20 - LEN 
<Z*> / 2: PRINT Z*: FOR I = TO 5 
: PRINT : PRINT ■ DONNEE . ■ I 1 . : ■ LEF 
T* <P0*,L2X<I>>: NEXT : RETURN 

60 HOME : PRINT ■ ECRAN 2 MODI FIE - : 

FOR I = TO 5: PRINT : HTAB 10s P 

RINT 'OONNEE. • I • . a ■ LEFT* <P0*,L2X 

< I ) ) : NEXT : RETURN 
100 GOSUB 30:SSD1*,LIX,T1>:: GOSUB 30:SDD 

l*,Liy-,TlM: GOSUB 40 : §DD1 * , Li'A ,T1X 

: BOSUB 50:§SD2* I L2X,T2X: GOSUB 60 

:§DD2*,L2X,T2>: 
110 HOME : FOR I = TO 9 : PRINT D1*<I>: 
NEXT : PRINT : FOR I = TO 5: PR 

INT D2*< I) ; NEXT : GET 2* 
120 FOR I = TO 9lDl*(I) = mm i NEXT : F 

OR I = TO 5:D2*(I) = "| NEXT 
130 G09UB 30:§DDl*,Liy.,TlX: GOSUB 50:SDD 

2*,L2^,T2%: HOME ! FOR 1 = TO 9: 
PRINT Dl*(I)s NEXT : PRINT : FOR 

I = TO 5: PRINT D2*<D: NEXT 



Le porte-parole 



Ediciel (Matra & Hachette) nous pro- 
pose un synthetiseur do parole qui 
parlc frangais. sous forme d'une carte 
(a brancher dans un slot, le 4 de pre- 
ference) et d'une disquettc. 

La carte 

Elle comporte : 

- Un chip synthetiseur de parole 
MEA 8000 permettant la synthese de 
parole et la generation de sons musi- 
caux 

- Un amplificateur basse frequence 
pour amplifier le signal vers un haut- 
parleur. 

- Des emplacements libres pour re- 
cevoir des RAMs ou des PROMs. et 
les decodeurs pour y acceder. 

- Une sortie vers le haut-parleur de 
I' Apple, que Ton doit alors debran- 
clier de la carle mere (ce n'est pas 
tres commode sur un 11+ !). 
Inconvenients . le haut-parleur est 
deconnecte pour les usages classi- 
ques. mais fait du bruit a cause de 
parasites electriques quand les drives 
loument ! On aurait aime une possi- 
bility de 'switcher sans avoir a ouvrir 
le capot et rebrancher les fils. 

- Une sortie vers un haut-parleur 
exteme. de type prise de chain© Hi- 
Fi. que Ton peut relier a un amplifi- 
cateur Jaurais prefere une petite 



pri»e 'jack' pour relier a un magneto- 
phone, mais c'est personnel (mon 
Apple est a 2 metres de ma chaine. 
a vol d'oiseau). 

Le logiciel de synthese 
de texte 

Premiere face de la disquette 

MaJgre de nombreux defouts ergono- 
miques (par exemple, pas d'editeur 
de lignes des phrases entrees), ce 
programme est un magnifique bebe 
n£ de Tunion du hardware et du 
software. 

II permet de creer des fichiers de 
messages paries, que Ton peut mte- 
grer a Hps programmes Basic ou as- 
semblcur. voire au celebre EM- 
LOGO 

Les deux qrandes possibility sont : 

- Ledition en (raneais on rentre 
une phrase (avec des codes speciaux 
pour les accents...), le programme la 
traduit en phonemes et peut la pro- 
noncer. 

Et cela marche ! En franqais intelligi 
ble et agreable. On peut nieme met- 
tre un point d interrogation. et I'into- 
nation changera. De plus, on peut 
indiquer les groupes verbaux et no- 
minaux avec des marqueurs spe- 



Olivier Herz 

ciaux, de facon a sc rapprocher 
d'une elocution naturelle. 

Toutefois, ce programme n'a pas la 
science infuse et commet des erreurs. 
Que pensez-vous des phrases "Les 
poules du couvent couvent" et 
"Nous portions nos portions'" ?. 

C'est pourquoi on peut aussi edi- 
ter en phonetique, en indiquant les 
phonemes Pour des raisons scientifi- 
ques. la solution employee ici pour 
reconstituer la parole est celle rete- 
nue par le CNET, qui part des cou- 
ples de phonemes successifs. 
C'est tellement bon que je Tai fait 
parler en anglais, en dllemand et ... 
en laponais. Son accent frangais est 
tout simplement delicieux ("Maillc 
teil'lor iz ritch"). 

Mise au point graphique 

Deuxieme face de la disquettc 

Ce programme permet de creer des 
notes de musiques et des effets spe- 
tiaux sonores en falsant varier 1" am- 
plitude du signal, la frequence et la 
largeur des bandes et en visualisant 
le tout. II peut creer ses propres fi- 
chiers de bruits ou bien modifier des 
messages crees par le synthetiseur de 
parole. 
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CX MacBase 



Le Logiciel Professionnel 
integre sur Macintosh 



Puissant et simple 
comme... Macintosh 

CX MacBase est un 
logiciel intcgrc 
d'un genre tout a fait 
nouveau. Vous passez 
d'uue application a 
une autre, d\in 
document a un autre 
avec une surprenante 
facilite ; par exempie, 
pour realiscr 
automatiquement un 

graphique a pan ir d'un 
fiehier, editerdu 
courrier personnalise, 
creer des relations ou des echunges 
entre fichicrs. 

CX MacBase regroupe graphiques, 
gestion de fichiers, calculs, 
traitement de textes, edition 
autornatisee de lettres, d'etats et 
d'etiqueues... 

Tout cela, en un seul programme 
puissant et simple commc... 
Macintosh. 

Branchez CX MacBase le matin, il 
vous accompagnera 
jusqu'au soir ! 





1 ti ■ | k M ucracw 4c U irunjtoc Macintutn 
Ci MkBsm c.i u« . \uc 4ep«n 0< CnnuAW X 




II change tout 
sans tout bouleverser 

Chaque jour, vous creez, echangez, 
trammelled des documents. Chaque 
jour. CX MacBase travaille 
direclement sur les documents 
professionals qu'il vous a permis 
de creer et d'illustrer : imprimes, 
formulaircs, rapports d'activites, 
devis, memos, etc... ht vous 
retrouvezsur Macintosh voire cadre 
nature! de travail. Vous savez tout 
de suite calculer, classer, retrouver, 
sclcctionncr, trier, imprimcr, 
mixer a volonte. 




Controle X 



Les logiciels a tout imaginer 

lour Maine - Moniparnus.sc - J.V avenue du Maine. 
75755 Paris Ccdcx 15 - Tel (I) 5JK.9K.87 



Donnez du tonus 
a vos documents 



Communiquez avec 
votrc entourage et 
valoriscz vos perfor- 
mances profession- 
nelles en envoyant 
de superbes etals 
recapitulatifs 
extraits de vos 
fichiers ; toutes 
sortes dc docu- 
ments ou cohabi- 
tent votre logo, des desstns, 
tableaux, graphiques, textes, 
encadres, etc... CX MacBase est a 
Taise dans tous les milieux profes- 
sionals ei vous permet de 
developper vos propres applications 

CX MacBase repond vraiment a 
toutes les promesses de Macintosh ! 
Renseignez-vous vite aupres d'un 
revendeui agiee ou adiesscz-nous 
votre carte de visite pour recevoir 
une documentation. 
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VERSION SOFT, LES FRUITS 

L f edition francaise 



PROCOPE 

L'OUTIL INDISPENSABLE DU DEVELOPPEUR. 

Premier assembleur editeur pleine page, 
pour APPLE lie et APPLE Wc. 



I 



Si 
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BUDGET FAMILIAL 

LE PLAISIR DE LA GESTION. 

Gestionnaire de talent pour le plaisir 
de rentier dans seb complex. 




Si vous avez la program ma tion dans 

la peau, mines ou debutants, Procode est 

ic logiciel qu'il vous taut. 

I] vous permet de developper en un temps 

record grace a ses fonctions d^diteur 

pleine page 80 colonnes. 

Etudie pour ProDOS 64 k ou 128 k, 

Procode peut assembler sans acces 

disque jusqu'a 3 sources en memoire. 

Normal, on tiavaille entre Pros! 



Budget Familial vous 
en donne pour votre 
argent ! 

II vous permet d'enre- 
gistrer tous les mouve- 
ments de votre compte 
bancaire et d'avoir I'ceil sur vos 
dcpcnscs. 

Avec lui, plus de problemes de 
gcstion, vous etes sur d'y ti uu vcr 
votre compte. 

Meme en ignorant tout de la 
gestion, vous pouvez tres vite devenir 
un super gestionnaire. 
Avcc 1c plaisir en plus... 



\ 




LES LOGICIELS VERSION SOFT UTILISENT LE SYSTEME D'EXPLOITATION PRODOS 

LES MENUS DEROULANTS PERMETTENT D'ACCEDER DIRECTEMENT AUX diffErentes FONQIONS. 
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OWE PASSION 



de logiciels 
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EPISTOLE 

L'ECRITURE SOURIS. 

Best-seller ineonteste 
du traitement de texts francais. 



VERSION CALC 

LE CALCUL SOURIS. 

Premier tableur grophique 
multi-fonctions utilisant la souris. 




Partagez le plaisir 
cTccrirc avec £pistolc. 
Modele de simplicire et 
de puissance, ce logiucl 
est Poutil ideal pour tous 
vos traitements de texte 
francos. 

En un clin d'ceil, fLpistole 
rcdigc toutcs vos lettres, vos 
rapports et vos mailings — avec 
le souci en moins. 
Vous voulez effacer un mot, changer 
unc phrase, deplacer un paragraphe? 
Rien de plus simple, l'ecriture 
souris vous laisse les mains, libres! 
£pistolc vous offre Petri ture facile. 
A vous Timagination ! 




Voici enfin le logiciel 
adapts k toutc votre 
gestion quotidienne. II 
suffitd'une simple 
pression du doigt avec la 
souris pour comprendre que 
toutes vos operations uc previ siuns, 
de syntheses ou d'analyses, 
deviennent alors un jeu 
d'enfant. 
Vous souhaitez une represen- 
tation graphiquc? Facile! Ouvrez 
unc fenetre, clique* et faires le plein 
d'images. 

De memoire de logiciel, on n'avait encore 
jamais vu une telle facilite alliant puissance 
et rapidite. 




CD 
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Gestion de fenetres texte 



Georges Zwingelstein 

La mode etant au Macintosh, sa 
souris et ses fenetres. je n'ai pu 
m'empecher de succornber a la ten- 
tation de donner une de ces particu- 
larity a I' Apple II : les fencrrcs. J'ai 
choisi de gerer leb fenetres en ecran 
texte plutot qu'en haute resolution, 
car elles ont l'avantage d'occuper 
moins de place memoiie. d'avoir un 
temps de reponse acceptable, de ne 
pas necessiter une gestion de curscur 
particuliere, et surtout parte qu' elles 
servent. le plus souvent. a afficher 
des menus sur le Macintosh. 
Ce programme; permet d l'aide de 
(ampersand (&) de creer. d'ouvrir. 
de fermer et d'echanger a volontc 
des fenetres. pouvant se superposer 
les unes aux autres. sans perte de- 
formations. 

Les commanded 

Les principales commandes coneer- 
nent : 

- ]a creation 

- Touverture 

- la fermeture 

- l'echange. 

La creation 

La syntaxe est la suivante : 

& C NF.MD.MG.MH.MB.CH (C 

pour Creer) 

avec les conventions suivantes : 

• NF represents le numero de la fe- 
netre (compris entre 1 et 127). 

• MD definit la marge droite. 

• MG definit la marge gauche. 

• MH delimite ia marge haul 

• MB delimite la marge bas. 

• CH est le code ecran (optionne!) 
du caractere delimitanl les bords 
de la fenetre. les marges etant 
donnees par rapport a ceux-ci. 

Pour obtenir. par exemple. une fene- 
tre rernplissant tout 1 ecran. ii suffit de 
donner lordre : 

& CI. 1.40.1.24 len 40 colonnes) 
& CI. 1.80.1.24 (en 80 colonnes) 
Ce logiciel fonctionne pgal«?ment en 
80 colonnes sur Apple >e. Quelques 
remarques sont neanmoins necessai- 
res sur une utilisation en 80 colon- 
nes. les commandes d'ouverture et 
de fermeture de fenetre utilisant les 
adresses standard pour la proteger 
{$20 $23 ou 32 a 35 en decimal) 

- les colonnes etant numerotees de 1 
a 80. on ne peut proteger une fene- 
tre qu'entre une colonne impaire (a 
gauche) et une colonne paire (a 
droite). 

- la marge gauche est done arrandie 
au premier nombre impair inferieur. 

- la marge droite est. de la meme 
fagon. arrondie au premier nombre 
pair superieur 



Par exemple. pour une fenetre sur 
les deux colonnes 65 et 66. les 
commandes suivantes sont equiva- 
lentes : 

&C1.65.65,... 
&CL66.65.... 
&C1.65.66.... 
&C1.66.66.... 

L' on vert ure 

& O NF (O comme Ouvrir) 
ou NF lepresente le numero de la fe- 
netre que I on desire ouvrir C'est 
tout. 

La fermeture 

La commande de fermerture est en- 
core plus simple, puisqu'on ne peut 
fermer que la fenetre se trouvant au- 
dessus dp routes les autres : 
& F (F comme Fermer) 

L'echange 

Enfin, la commande permettant de 
faire passer une fenetre au-dessus de 
toutes les autres est legerement plus 
compliquee, le numero NN de la fe- 
nfire a rernonter ne pouvant etre 
connu de I ordinateur : 
& E NF fE comme Echanger) 

Attention : afin d'ameliorer notable- 
ment la rapidite du transfer! cctte 
commande cree dans le sens decrois- 
sant. a partir de i'adresse $2FF 
(e'est-a-dire sur un morceau du buf- 
fer d'entreej. une table des adresses 
des fenetres concernees par le trans- 
fer^ il y a done risque de recouvrc 
ment d'une commande prealable- 
ment entree au clavier, si celle-ci fait 
sensiblement plus de 255 — 2 * 
(nombre d'adresses) caracteres. 
Dois-je vous rappeler. au passage, la 
commande qu'il ne faut pas oublier 
sous peine de perdre votre sang 
froid ? L initialisation. II s'agit de : 
& I (I comme???) 

Cette commande est automatique- 
ment realisee lorsqu'on lance le pro- 
gramme : elle identifie le type de 
I' Apple, ainsi que I'acTtvtte d'une 
eventuelle carte 80 colonnes sur 
Apple He. cree une pseudo fenetre 
de numero juste sous le debut du 
programme, puis efface les variables 
(CLEAR) et enfin positionne HIMEM 
sous la premiere fenetre. 

Le posltionnement 

&P F.MG.MW CP comme Position- 
ner) 

permet de deplacer une fendtre. ce 
qui autorisera une mise en place plus 
facile des differentes fenetres utilisees 
dans un programme. NF est comme 
a I' habitude le numero de la fenetre, 
MG et MH les nouvelles marges gau- 
che et haut de la future position de 
cette meme fenetre. 



Attention : comme pour l'echange. 
une table est creee dans le buffer 
d' entree. 

J'ai d T autre part active, pour vous 
soulager. Ia touche de tabulation, 
celle de TAppIcsoft ne fonctionnant 
pas correctement en 80 colonnes, et 
j'ai egalement repris, en la modifant 
un peu, Ia routine de menu proposee 
par Denis Sureau dans Particle "La 
programmation facilitee" du Pom's 5. 
Ces commandes travaillent a I'inte- 
rieur de la fenetre. quelle que solt la 
position de celle-ci. Par exemple, 
pour positionner le curseur sur la 
premiere ligne et la premiere colonne 
de la fenetre. on utilisera : 
& VTAB 1:& HTAB 1 
Ces commandes ne seront pas tou- 
jours necessaires, le programme se 
chargeant de memoriser et de rappe- 
ler la position du curseur. lorsque 
celui-ci change de fenetre 

Pour appeler la routine de menu, ia 

commande sera . 

& LET NV.VT.LN.NI(.IL) 

avec les conventions suivantes : 

• NV = nom d'une variable 

• VT = tabulation verticale dans la 
fenetre 

• LN = longueur de la bane en in- 
verse 

• NI = nombre d'items 

• IL = interligne (oprionnelle, 1'inter- 
liqne initiate etant de 1). 

La routine veiifie d'abord que r en- 
semble du menu rentre a I'interieur 
de la fendtre, utilise non plus des 
chiffres mais des lettres a partii de 
"A" pour la selection, ce qui autorise 
un nombre d'items compris entre 1 
et 20 et tient coniple des fleches ver- 
ticales de TApple He. De plus, la 
barre de selection n' in verse que les 
caracteres inversables. 

J'ai enfin transformed un sous-pro- 
gramme qui me permettait de depla- 
cer HIMEM pour creer une fenetre 
sans perdre les variables chaines, en 
une commande - 
& HIMEM : NNNN 
o0 NNNN represents la nouvelle va- 
leur non pas de HIMEM. mais du 
debut de la zone libre entre les fene- 
tres et le programme, vous permet- 
tant d'y charger vos propres routines 
(le debut du programme se trouve 
en $8A00 ou 35328 en decimal). 

Desirant. de plus, pouvoir recuperer 
la place d une fenetre devenue inu- 
tile, il m'a ete necessaire de rajouter 
la commande : 
&D NF (D comme Dctruire) 
avec laquelle on peut detruire la fe- 
netre de numero NF h condition que 
celle-ci soit fermee, ce qui est evident 
si elle est devenue inutile. 

Enfin. comme il est beaucoup plus 
agreable, dans un programme Basic, 
de n avoir qua charger une fenetre 
prealablemeni creee et sauvee sur 
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Applemania 



Symptomes. 



Oil NON 

1. Ic vcux connaitrc PRODOS sans ctrc un pro 
duDOS □□ 

2. Ami des betes, je cherche un chat a puces pour 
colorier ma souris en mauve 

y Devenir a laise comme Blaise en Pascal, quel pied ! □ □ 

4. Mon baud a 7 bits cherrhe tin X c pour completer 
son protoco-le X-On X-OII en vuc d'unc liaison 
durable UU 



01 1 NON 

5. Pianoiei des nuiisemicres, e'est planant. Mais 

planer tout seul, e'est frustrant. Q d 

6. Je veux relier mon lave-vaisselle a mon Apple II. D [~] 

7. Appelerun S.O.S intormatique quand 

la technique coinee, ca depanne. \Z\ EH 

8. Je vcux apprendre ;i mieux gerer mon bureau 
en ie jetant par les lenetrcs dw Macintosh. 



iOUIaMOINS vous cm en plcinc 4j7 0L'I w\i\ eits conugieuv g j HI QUI brow, wm durgtme mlnwr 
mcubaiinn, prenw des mesurcs xtci hit-n enioure au Club Apple. voire passion ju Uuh Apple 



Remede : retoignez le club apple 

Plein, plein d'avanrages vous v attendent : 



- unc niessagerie electronique gratuite ; 

- un numero de telephone pour consulter les ingenieurs 
Apple 7 jours sur7; 

■ tous les mois, Ie journal dil Club 
L'Echo des Apple ; 

- des conferences, reunions d*intorrnation, projections 
privees et rencontres avec des "pros" ; 



- des stages d'initiation et de perlectionnement animes 
par les "gourous" du Club ; 

- des voyages organises en Californie ; 

- une librairie speciale Club : 

- un Apple Check pour beueficier de conditions de 
credit preterentieNes; 

- des rencontres organisces avec dautres 
Applemaniaques. 
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disquelte, on disposera des quatre 
commandes suivantes : 

&SAVE "NONT.Fl 

pour sauver la fenetre numero Fl a 

la suite de cellos precedernment sou- 

vees dans un fichier d'un type nou- 

veau. Celui-ci apparaTt comme hi- 

naire dans lc catalogue. 

&LOAD "NONT.FLNl 

pour charger la Nl ieme fenetre du 

fichier en lui donnant le numero Ft. 

&STORE "'NOM'Tl.Nl 
pour sauver les marges et le contenu 
de la fenetre Fl a la place de la Nl 
ieme fenetre du fichier (il faut que les 
dimensions soient identiques). 

&RECALL 'NOM",Nl,Fl 
pour effectuer la reciproque de 
&STORE sans rappeler les marges; 
"NONT represente une chaine de 
caracteres contenant le nom du fi- 
chier, dans lequel on ne peut sauve- 
garder plus de 127 fenetres (ce qui 
est larqement suffisant dans la plu- 
part des cas. surtout qu'il nest pas 
possible d'avoir un catalogue des fe- 
netres), accompagne si necessaiie 
des numeros de drive ef de slot sui- 
vant la syntaxe du DOS. 

Pour SAVE et LOAD : 

• si INI n'est pas precise, il est pris 
egal a Fl 

• si nl Fl. ni Nl sont donnes, alors 
le programme charge toutes les fe- 
netres en leur donnant un numero 
croissant (sauve toutes les fenetres 
par numero croissant a la suite du 
fichier). 

Pour STORE et RECALL : 

• les valeurs par defaut de Fl et Nl 
sont 

Nl - Fl si Nl n'est pas donne. et 
Nl = Fl = 1 si Fl et Nl sont 
inexistants 

Remarques 

Chaque fois qu'une fenetre est creee 
ou chargee. la routine FRR(O) est ap- 
pelee. Les commandes de gestion de 
fichiers de fenetres ne verifient pas la 
fermeture de la fenetre. II sera done 
possible, par exemple. de fusionner 
des ienetres ou de recuperer un mor- 
reau d'une fenetre en ouvrant la 
nouvelle par dessus puis en la sau- 
vant avant de la fermer. 
II est possihle de fairs ressortir les fi- 
chiers de fenetres en POKant dans la 
table des caracteres des types de fi- 
chiers. le code voulu a l'affichage du 
catalogue, par exemple 
POKE 45998. 198 pour leur dinner 
le type "F" 

Tous les parametres peuvent etre 
donnes sous forme d'expression. le 
programme utilise les routines deva- 
luation de nombre ou chaine de ca- 
racteres de 1'Applesoft. 

Les messages d'erreur 

Les messages d'erreur utilises ont ete 



detournes de leurs significations onqi- 
nelles- 

- OUT OF MEMORY indique que la 
place necessaire a la creation d'une 
fenetre est insuffisante ou que le de- 
placernent de HIMEM entralnerait un 
recouvrement soit des variables, soit 
du programme de gestion des fene- 
tres. 

- UNDEF'D STATEMENT signal* 
une operation sur une fenetre inexis- 

-"rEDIM'D ARRAY souligne !e fait 
que Ton veut creer ou charger une 
fenetre dont le numero a deja ete at- 
tribue. 

- OVERFLOW indique une opera- 
tion entrainant un depassement de 
capacite (ouvrir une fenetre deja ou- 
verte, en fermer une quand il n'y en 
a plus a fermer. ou RECALL ou 
STORE sur des fenetres qui n'ont 
pas les m£mes dimensions). 

- ILLEGAL QUANTITY sert pour 
toutes les valeurs interdites : mauvai- 
ses marges, mauvais numero de fe- 
netre. valeurs impossibles d'un ou 
des parametres du menu, destruction 
d une fenetre ouverte... 

Enfin, deux messages du DOS utili- 
ses par le programme . 

- OUT OF DATA signale que le fi- 
chier a moins de N fenetres, si Ton 
veut accede! a la N ieme fenetre. 

- DISK FULL indique soit une dis- 
querte pleine, soit un fichier conte- 
nant 127 fenetres. lorsque Ton veut 
sauver une fenetre. 

La structure du 
programme 

Pour les utilisateurs de lassembleur 
et les autres, void quelques informa- 
tions sur la structure du programme. 
Le programme se charge en $89EE. 
commence par brancher ["ampersand 
($89EE a S89FF), puis saute a la 



routine d'initialisarion. 
Celle ci. cree juste sous I'adrcsse 
contenue en S8A00 - $8A01 (le 
contenu initial est $8AU0). une pre- 
miere fenetre de numero corres- 
pondent a tout l'ecran et ne pusse- 
dant pas de buffer. HIMEM pointe 
alors sur cette fenetre. 
Lorsqu'une fenetre est cr66e ou 
chargee. les chaines ainsi que 

HIMEM sont dcplacecs vers lc bas 
grace a une partie de &.HIMEM. 
pour laisser la place a la nouvelle fe- 
netre, qui y est alors copiee. 
Lorsque le procjramme cherche une 
fenetre. il part de celle pointee par 
HIMEM et remonte jusqua la fenetre 
de numeYo 0. 

Vous pouvez vous liberer de la place 
pour vos propres routines : soit de 
maniere temporaire avec &HIMEM 
(&I replace la fenetre juste sous 
$8A00), soit de maniere definitive en 
modifiant ladresse $8AO0 - $8A01 
et en reinitialisant. L'inlerpreteur se 
tcrmine en $8A0F par un saut a la 
routine d'erreur de syntaxe du Basic, 
que vous pouvez done detoumer. 

Une fenetre est rnernorisee sous 
forme de 2 parties ; les donnees la 
caracterisant et le buffer qui contient 
re qui sera affiche a l'ecran 

- Les donnees comprennent : 

• le numero de la fenetre 

• le numero de la fenetre ouverte 
suivante (nul si e'est la derniere fe- 
netre ouverte. e'est-a-dire celle qui 
est au-dessus des autres). 

• les 'I octets de memorisation des 
tabulations verticales puis hori2on- 
tales (tabulations dans la fenetre). 

• les 4 marges de la fenetre (dans le 
format qui permet une recopie di- 
recte dans les memoires $20-$23). 

La gestion des fichiers sur disquette 
utilise quelques routines du DOS 
pour I'ouverture et la fermeture des 



max : Le moniteur etendu 

Jacques Supernant ilpple H+, //e, //c 

Oe moniteur- autorise un contr'u'e de /'execution des 
routines en langage machine. 

• Un mode Trace et Pes a F*as tres e\so/u4s et 
select ifs sont complete" s par un acces direct 
aux reg/stres du G50B (Ou B5COBI II est ainsi 
poa sidle de les initialiser a son gre" ou a /aide de /a 
routine de he sard. 

• La gestion des fenerrf**; d'&cran simplifie le 
mode Trace. 

• Une routine permet la recherche de suftes 
d'octets. 

• Un mini -as a erriulecjr tres soupte fait partie de 

• Une ligne de command* peut devenir une 

t>o*jcl(B a^ec /'ordnu ULJM^. 

Les flcHor-s soltcg soot si_r- ta tfiscMette. 

Ditquette et documentation : 150,00 F TTC franco 
(bon de commande page 7B). 
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fichlers puis le File Manager pour 
gerer le contenu qui est organise de 
la maniere suivante : 
Le premier octet contient le nombre 
de fenetres dans le fichier. Puis on 
rrouve Igs fenetres enregistrees de 
maniere sequentielle (de meme que 
pour 1 organisation pn memoire. un 



enregistrement contient deux zones : 
la zone des donnees qui ne 
comprend que les 4 marges, puis la 
zone du buffer qui contient le 
contenu de la fenetre). 

Je termine enfin, en vous souhaitant 
plein de petites feneties ! _ 



N.D.L.R. : Le listing du programme 
Basic a ete quelque peu modifie pour 
les lecteurs n'ayant pas la disquette 
d'accompagnement a leur disposition. 
La version originate (sur la disquette) 
charge les fenetres FGEN, FPRE et 
FPOM'S 14. 



Programme ESSAI 

10 TEXT : HOME 

20 PRINT CHR* <4)"BRUN UJINOniJ- 

30 NN = 9:C0L = 40: REM METTRE 80 POUR ES 

SAI EN 80 COLOWES, ET PRINT CHR*< 

4>"PR£3" AUANT LA LIGNE 20 
100 A VTAB 10: & HTAB 5: PRINT "EXEMPL 

E D'UTILISAIION DES FENETRES " 
110 A VTAR 13: & HTAB 7: PRINT "PAT I EN 

C£, JE CREE DES FENETRES" 
200 FOR I = 1 TO W 

21 M6 = COL * RND (1 > + 1 *MD = COL # R 
ND < 1) + 1 : IF MD - MG < 12 THEN 2 
10 

220 MH = 24 * RND (1)4 I :MB = 24 # RND 

<1> + ll IF MB - MH < 4 THEN 220 
230 & CI ,MG,MD,MH f MB,256 * RND < 1 ) 
240 NEXT I 
245 SPEED- 100 



250 L C127,l ,COL, 20,24,32: & 0127: GOSUB 
1000 

260 & VTAB 3: & HTAB 3: PRINT ■ OUVERTU 

RE DES FENETRES" j i GOSUB 1000 
300 FOR 1 = 1 TO NN: «c OI 

310 & VTAB 3: & HTAB 3: PRINT " FENETRE 

" i I i : GOSUB 1000 
320 NEXT I 

330 6c E127i GOSUB 1000! & HTAB 3: PRIh/T 
"PUIS ECHANGE DES FENETRES";: G0S 
UB 100 

400 FOR I = 1 TO hfis 8f EI : GOSUB 1000s N 
EXT I 

410 & E127: GOSUB 1000: & HTAB 3: PRINT 
■ENFIN FERMETURE DES FENETRES" ; : 

GOSUB 1000: fc Fi GOSUB 1000 
500 FOR 1=1 TO M^: & F: GOSUB 1000: NE 

XT I 

999 END 

1000 FOR J = 1 TO 1000: NEXT J: RETURN 



Source Big MAC 
Programme WINDOW S 



1 *****#*###**#«*#*#*#**#»*##***** 

2 * h 

3 * PROGRAf-tiE DE GESTION DE * 

4 * FENETRES TEXTES * 

5 * » 

6 * PAR G. ZWINGELSTE IN * 

7 * * 

a #***######*#»*#****»#»#»♦»♦*»»»« 

9 

10 LISTING KBD ; DEMANDE AFFICHAGE LI 

STING 

11 DO LISTING 

12 ELSE 

13 L ST OFF 

14 FIN 

15 SAVEOBJ KBD ; DEMANDE SAUVE GARDE D 

U CODE 0BJET 

16 DO SAVEOBJ 

17 DSK WINDOW 
IB FIN 

15- EXP OFF ; IMPRIME S 

EULEMENT LE CODE r-WCRO 
20 TR Ot\ ;3 BYTES P 

AR LIGNES 

21 

22 * S0US-PR0GRATT1F DEPENDANT DE LA CA 

RTE 80 COL. : 

23 * VTAB 

24 # HTAB 

25 * (GETPARAM ,GETNEW"1, CHKMARGE) 

26 * SAVECURS 

27 # SCREENIT 

28 « INVERT 

29 * CALCBAS 

30 * APPLEID 
31 

32 ORG S89EE 

33 

34 ESSAI ECH - 1 jASSEMBLAG 



35 

36 

37 
38 
39 
40 
41 
42 
43 
44 
13 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 

64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 



E MODI F . ECHANGE. 
ESSAI MOV = 1 

E MODI F . DEPLACE 
ESSAI 80 = 

E MODI F. SCREENIT 
; POUR 90 C0L0M4ES 
PAG 

* 

» COMiANDES MACROS 



iASSEMBLAG 
;ASSEMBLAG 



I NCR 



NI 



DECR 



ND 



CMPR 



TR 



TRDB 



TRAX 



DO 

MAC 
INC 
BNE 
INC 

< << 

MAC 
LDX 
BNE 
DEC 
DEC 
<<< 

MAC 
LDA 
CMP 
LDA 

SBC 

<<< 

MAC 

LDA 
STA 

<<< 

MAC 

>>> 
>>> 
<<< 

MAC 
LDA 



§1 
NI 

51 + 1 



§1 
ND 
51+1 
5 1 



§1 
62 
51+1 
§2+1 



51 
52 



TR.51 ;§2 
TR.51 +1 J 52+ 1 



51 
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E DU REGISTRE Y 
132 UNDLFT = $20 
ETRE DU MONITEUR 



; TABLE FEN 



133 UNDWDTH 

134 WNDTOP 

135 UNDBTM 
134 CH 

137 CV 

138 BASL 

139 PROMPT 

140 AIL 

141 A2L 

142 A3L 

143 A4L 

144 LIWUM 

145 TEMPPT 

146 TEMPST 



♦ 21 
S22 
*23 
%2A 
*25 
*28 

♦ 33 
*3C 
*3E 
*40 
*42 

♦ 50 
*52 
*55 



75 


LDX 


§1 + 1 




76 


STA 


§2 


147 


77 


STX 


§2+1 


148 


78 


<<< 




149 


79 






150 


80 AD 


MAC 




151 


81 


LDA 


SI 


152 


82 


ADC 


§2 


133 


83 


STA 


§3 




84 


<<< 




154 


83 








86 ADD 


MAC 




155 


87 
88 


CLC 

>>> 


AD. 31 ;32;53 


156 


89 


>>> 


AD.S1+1 |S2+1 ;S3+1 


157 


90 


<<< 






91 






138 


92 SB 


mc 




159 


93 


LDA 


S 1 


160 


94 


SBC 


52 


161 


95 


STA 


S3 


162 


96 


<<< 




163 


97 






164 


93 SUB 


MAC 




165 


99 


SEC 






100 


>>> 


SB. SI ;§2;S3 




101 


>>> 


SB. §1+1 ;§2+l ;§3+l 


166 


102 


<< < 




167 


103 








104 BUMP 


MAC 




168 


105 


ADC 


§1 




106 


STA 


51 


169 


107 


BCC 


BPD 




108 


INC 


fil + 1 


170 


109 BPD 


<<< 






110 






171 


111 


FIN 






112 


PAG 




1 72 


113 * 








1 14 » CON ST ANTES 




173 


115 * 








116 






174 


1 17 * VALEUR 


DES 


TOKENS 




118 HTAB; 




*96 


175 


1 1 9 VTAB : 




*A2 


120 HIMEMi 




♦A3 


176 


121 RECALL: 




SA7 




122 STORE: 


= 


SA8 


177 


123 LET i 


m 


*AA 


124 LOAD: 




*B6 


178 


125 SAVE: 


= 


*B7 


126 






179 


127 * 








128 * VARIABLES 




180 


129 * 








130 








131 YSAV1 




♦ IF jSALWEGARD 


181 



RS TEMP STRING DESCR. 



INDEX 
VARTAB 
ARYTAB 
ST REND 
FRETOP 
FRESPC 
MEMS I Z 
BASIC 
CURL IN 



;P0IWTE VE 



182 

183 

1 ©4 
185 



186 
187 
188 
189 
190 



*5E 
♦69 
♦ 6B 
♦6D 
♦6F 
*71 
♦73 



; HI MEM DU 
iNUMERO LI 



♦ 75 
GNE EN COURS 
r (CURLIN+l = ♦FF SI MODE DIRECT) 
FORPNT = $85 jPOINTEUR 

SUR UNE VARIABLE 
DSCLEN = *8F ; LONGUEUR 

DU DESCRI PTEUR DE LA VAR. 
ARYPNT = *94 

IN = $0200 

AMPER = *03F5 
OLDCH = i047B 
OURCH = *057B 
OURCV = *05FB 
KBD - *C000 

RDALTCAR = SCO 1 E ;LIT SWITC 

H ALTERNATE CHARACTER SET < APPLE I 
IE> 

KBDSTRB = *C010 

CHRGET - *B1 ; RECUPERE 

UN CODE D'UNE LI GNE BASIC 
CHRGOT = *B7 

INCR. TXTPTR 
MEMERR = *D410 

MORY ERROR 
ERROR - *D412 

RREUR POINTE PAR X 
RESTART - *D43C 

ChfAUD DU BASIC 
CLEARC = *D66C 

CLEAR 
NEWSTT = *D7D2 

AU BASIC 
UNDERR = $D97C 
ATEMENT ERROR 



PRINT 

PRINT 
FRWUM 

UN N OMBRE 
FRMEVL = 



♦DAD5 
♦DD67 



i IDEM SANS 
;0UT OF ME 
i AFFI CHE E 
i DEPART A 
jCOt^NDE 
; RETOURNE 
; UNDEF - ST 
jCOfMANDE 
;RECUPERE 
i LVALUE LA 



;VERIFIE L 
(TROWE L' 



j ILLEGAL Q 
jTRANSFORM 



♦ DD7B 

FORMULE POINTEE PAR TXTPTR 
SYNERR = *DEC9 ; SYNTAX ER 

ROR 

CHKCOM = *DEBE 

A PRESENCE D'UNE VIRGULE 
PTRGET = *DFE3 

ADRESSE DE LA VARIABLE POINTEE PAR 
TXTPTR 
IQERR = *E199 

UANTITY ERROR 

GIVAYF = $E2F2 

EA.YEN FLOTTANT DANS FAC 
GARBAG = *E484 ; EFFECTUE 

UN FRECO) 
I ET LONGUEUR DANS ACCU 
FRESTR = SE5FD ; CHECK STR 

ING AND GET POINTER TO 
j STRING IN INDEX fi+iD LENGTH IN ACC 

U 

GETBYTC = ♦E6F5 

ARACTERE ET GET BYT 
GET BYT = SE6F8 

UN N OMBRE <256 
GETADR = SE752 

EN ENTIER D*=*JS LIMNUM 
OVERFLOW = *E8D5 



1 C 



; SAlfTE 
; RECUPERE 
5 CONVERT I 
; OVERFLOW 
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ERROR 

191 SETFOR = *EB2? ;TRANSFERT 
FAC DANS VARIABLE TROLPJE PAR PTRG 
ET 

4FB39 
*F941 



192 SETT XT 

193 PRNTAX 

X EN HEXA 

194 BASCALC - 



,-ENVOie A, 
; CALCUL AD 



*FBC1 
RS LIGNE TEXTE 

195 COUT = SFDED 

196 MOUE = *FE2C ;DEPLACE < 

AIL) A <A2L) EN <A4L) 

197 PAG 

198 « 

199 * INITIALISE POINTEUR DE L'AMPERSAN 




200 

201 
20 2 
20 3 
20 4 
205 
20 6 
20 7 

20 8 
209 

210 

21 1 
212 
21 3 
214 
215 
21 6 
217 
218 

219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 

234 
237 

238 

239 



DEPART 
MP 



L DA 


£*4C 


STA 


PtflPER 


LDA 


£ <DEBUT 


STA 


AMPER+1 


LDA 


£ >DEBUT 


STA 


AMPER+2 


JMP 


INIT 




# 



;CODE DE J 



FR5TWD DA DEBUTPRM ;ADRESSE D 
EBUT PLACE LIBRE POUR FENETRES 

«*«*#**«*#««#*««#*«-*«****-*#»*»** 

* INTEPRETEUR DE L 'AMPERSAND * 
********************************* 



* RECHERCHE CODE DE LA COMiANDE 
DEBUT PW 

JSR CHRGET ;AJUSTE TX 

TPTR 

PLA 

LDX £TBCMDADR-TBCMD 

NEXT CM D CMP TBCMD-1 ,X 
BEQ CMDFOUND 
DEX 

BNE NEXT CM D 
JMP SYNERR 

* 

CMDFOIND DEX 
TXA 
ASL 
TAX 

LDA TBCMDADR+i ,X 

pm 

LDA TBCMDADR ,X 

pm 
RTS 



; RET0UR PAR LA C0MMAN 



DE 

TBCMD DFB VTAB : , HTAB : , LET : , LOAD 
: , SAUE : , STORE : , RECALL : , HI MEM : 

DFB 'I- P 'C j'C'F'.'E' . ' 

D' /P' 

TBCMDADR DA "vTAB- 1 , HTAB- 1 , MENU- 1 , 
LOAD-1 ,SAVE-1 ,STORE-l , RECALL-1 ,HIM 
EM-1 



240 DA INIT-1 , CREE-1 ,OUVRE-l 
,FERME-1 f ECHANGE-1 .DETRUIS-l 

241 DA DEPLACE-1 

242 PAG 

243 PUT WINDOW! 
ENETRES 

244 PAG 

245 PUT WIND0W2 
ICHIERS FENETRES 

246 ERR */*9600 
AMME EN DESSOUS S960U? 

247 FINPRMG = * 



jGESTION F 

jGESTJON F 
;FIN PROGR 



HCT.OBJ 



*********************♦**»#**♦»## 

* * 

* HARDCOPY POM'S # 



CR> 



CV 
10 BASL 
1 1 

12 BASCALC 

13 COUT 
1 4 

15 
16 
1 7 
1 8 

19 H0304 
20 
21 
22 
23 



*8D 

*25 
S28 

*FBC1 
*FDED 

ORG *0300 



LDA 
STA 
LDY 
JSR 
LDA 
CMP 
BCS 
ET NORMAL 

CMP 
BCS 



H0309 



£*00 

CV 

£$00 

BASCALC 

(BASL) ,Y 

£*40 

H031C 



i FLASH ING 



24 CMP £$20 

25 BCS H0319 ;SPECIAL C 
HARACTERS INVERSE 

26 CLC ; UPPERCASE LETTERS IN 
VERSE 

27 ADC £*CQ 

28 JMP H031C 

29 * PROBLEME AVEC UPPERSCASE LETTERS 

CODE *80-*9F <CODE CONTROLE) 

30 * 



31 


H0319 


CLC 




32 




ADC 


£*80 


33 


H031C 


JSR 


COUT 


34 




I NY 




35 




CPY 


£40 


36 




BNE 


HO 30 9 


37 




LDA 


£CR> 


38 




JSR 


COUT 


39 




INC 


CV 


40 




LDA 


CV 


41 




CMP 


£24 


42 




BNE 


H0304 


43 




RTS 





HCT.OBJ 

#300.331 

0300- A9 00 85 25 AO 00 20 CI 

0300 FB Bl 28 C9 40 BO OD C9 

0310- 20 BO 06 18 6V CO 4C 1C 

0318- 03 18 69 80 20 ED FD C8 

0320- CO 28 DO E5 A9 8D ?0 FD 



0328- FO E6 25 A5 25 C? 18 DO 
0330- D3 60 

WINDOW 

*8?EE.8A2l 
89EE- A9 4C 

S9FQ- 8D F5 03 A9 02 OD F6 03 



89F8- A9 8A 8D F7 3 4C 59" 8A 

8A00- 00 8A 48 20 Bl 00 69 A2 

&A08- OF DO 20 GA FO 06 CA DO 

8*10- F9 4C C? DE CA 8A OA AA 

8f=U8- BD 31 8A 48 BD 30 8A 48 
8A20- 60 A2 
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Graphiques aleatoires 

Thierry Han 



Je vous propose un tnteressant exer- 
cice de style avec qualre perils pro- 
grammes d'animation graphique 
aleatoire. Trois sonl en Basic el nous 
permertent de bien saisir le deroule- 
ment de I'animation. Le quatrieme - 
le plus beau - suit la meme demar- 
che, mais en assembleur. demontrant 
en chemin comment reutiliser quel- 
ques routines mathematiques et gra- 
phiques de la ROM Applesoft. 

Le principe commun (sauf CARRE) 
consiste a fairc "rebondir" une Iigne 
sur les lirnites d'un rectangle. 

Un segment de droite se caractense 
par ses exrremites. c'est-a-dire par les 
coordonnees de 2 points, soit XO, VO 

etXi.YX 

Chaque bourle leur ajoute un depla- 
cement horizontal et vertical, positif 
ou negafif (AX, AY et BX. BY), de- 
calant une Iigne de longueur variable 
sur I'ecran. 

Le "rebond" survient quand une ex- 
tremite de la Iigne atteint la limite du 
rectangle alloue. ceci electivement 
pour le sens de deplacement rendant 
le point "hors-Iimifes"' (d*ou modifi- 
cation de rotation). 
En commun egaiement le tiraqe au 
sort par RND(l) des extremites de la 
droite, des deplacements et de HCO- 
LOR (0 a 4). 

Suivons pas a pas le programme 
L1GNES : 

• 50 : haute resolution page 2 

• 60-65 : tirage des coordonnees de 
2 points 

• 70-75 : tirage de leurs deplace- 
ments 

• 80 . stockage de leur valeur abso- 
lue; servira a tester le depasse- 
ment 

• 85 : on dernarre en blanc 

• 10U : traqage de la Iigne definie en 
60-65 

• 110 : ajout des deplacements (po- 
sitifs ou negatifs) 

• 120-150; si un point doit se re- 
trouver hors-limite a Hteration sul- 
vante, alors inversion du deplace- 
ment et nouvellc couleur 

• 200 ; teste le clavier : une louche 
a ete frappee si PEEK(- 16384) > 
127 ($C000 >= $80) 

Si oui : lit le caractere frapp£ 

remet le clavier en attente (adressp 
-16368 = $C010) 

si "E" (CHR$( 197)1: efface et re- 
commence 

si ESC (CHR$(155)) : fin 

si quelconque sauf SPACE . nou- 
veaux points 

si SPACE (CHR$(160)): attend 



qu'une touche ait ete frappee 

• 210-230- boucle a la Iigne 100 
299 fois sur 300, sinon efface et 
recommence une fois sur 1200. 
sinon boucle en 60 avec de nou- 
veaux points 

• 240 : mode texte et fin 

QUATRE choisit une Iigne dans le 
quart superieur gauche de Tecran 
(60-65) et la reproduit "en mkok" 
sur les 3 autres quarts (Iigne 100). 

CARRE utilise une seule variable X 
et trace a chaque iteration 4 lignes. 
soit une Iigne a une distance X de 
chaque bord d'un cam* 

HUIT est en assembleur- Ccrtcs ! 
Mais il procede du rneme esprit et a 
exactement la meme structure. De 
plus, par rapport a QUATRE, il cons- 
Uuit dans chaque quart d"ecran une 
image supplemental par retoume- 
ment sur une diagonalc et, a des fins 
de symetiie Lotale, considere Pecran 
comme etant carre avant de l'etirer 
aux dimensions de 280 * 192 qui 
sont celles de la page graphique de 
ce cher Apple. (Notons que le rap- 
port 280'"192 pout se rcduire a 
35/24, valeurs apparaissant dans le 
programme.) 

Le programme commence done par 
fabriquer le nombre flottant stocke 
dans F sur cinq octets valant 35/24; 
vous le verrez reutilisp pour ajuster 
les abscisses. 

Vous trouverez ci-apres une breve 
description des principals adresses 
et routines utilisees : 

• PAGE1 ou SC054 selectionne la 
paqe 1 (texte ou graphique) 

• TEXTE ou $C051 selectionne le 
mode texte (page 1 ou 2) 

• CLAV ou $C00O. si une touche a 
ete frappee. est >= $80 et 
contient le code de la touche fiap- 
pee 

• STRB ou $C010 rend $C000 < 
$80 

• HGR2 en $F3D8 identique au 
Basic et de meme pour RND 
($EFAE) 

• HCOLOR en $F6F0. appele avec 
le code (0. 7) de la couleur dans 
X. ajuste I' octet $E4 utilise par 
HPLOT et HLINE. Le point d en- 
rree habituel. en $F6EC. verific 
que X < 8 

• HPLOT en $F457 trace un point; 
1'abscisse (0. 279) est codee dans 
2 octets, on charge l'octet haul 
dans Y. r octet bas dans X et I'or- 
donnee dans A avant d'appelcr 
HPLOT 




• HLINE en $F53A comme en 
BASIC, octet haut de Tabscisse 
dans X. bas dans A et ordonnee 
dans Y 

Un nombre reel est represents par 
Applesoft sur 5 octets (forme 
compactee) ou, en page pour etre 
"mouline". etendu sur 6 dans FAC 
($9D-A2) ou AHG ($A5-AA1. 

• YTOFAC alias SGNFLT ou $E301 
conveitit un entiei de 0..255 
charge en Y en reel dans FAC 

• INTTOFAC en $E2F2 convertit un 
enrier (-32708.. +32767) charge 
en A (partie basse) et Y (partie 
haute) en reel dans FAC 

• FACTOINT en SE10C aurait pu 
faire Y inverse. Eh bien non ! II 
tronque, si possible. FAC en enrier 
laisse dans 2 octets de FAC ; SAO 
et $A1 

• FACTOMEM en $EB2B compacte 
le reel dans FAC (6 octets) et le 
transfere a l adresse pointee par Y 
(partie haute) et X (partie basse) 

• FACTOARG en $EB63 transfere 
FAC dans ARC 

• FMULTM en $E97F transfere un 
reel en memoire pointe par Y 
(adresse haute) et A (adresse 
basse) dans ARG et appelle 
FMULT1 

• FMULT1 en $E982 multiplie FAC 
par ARG et laisse le resultat dans 
FAC - cette routine "prise en mar- 
che" demande Texecution pream- 
ble du sous-programme GETSGN 
{a la fin de HUIT) 

• FDIV en $EA69 divise ARG par 
FAC et laisse le resultat dans FAC 
- necessity GETSGN (meme re- 
marque que pour FMULT1) 

• INTL et INTH sont les deux octets 
de FAC ou FACTOINT laisse son 
resultat 

Nous savons rharger un nombre 
dans FAC. multiplier, diviser. tron- 
quer. appeler RND et les routines 
graphiques HUIT ralcule 35 24. 
choisit ses points, ses vitesses de de- 
placement ( 1 a 4) ei ses couleurs de 
facon idenrique aux program mes 
Basic, lit le clavier et boucle de fa^on 
analogue. 
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Programme QUATRE 

1 REM QUATRE 
50 HGR2 

60 XO = RND CI) * 136:Y0 = RND < 1 ) * 93 
65 XI - RND <1) * 136:Y1 = RND i 1 ) » 93 
70 AY - RND < 1) * 2 + 1 :AX = RND < 1 ) * 
3 + 1 

75 BY = RND <1) * 2 + 1 : BX = RND <1) * 
3 + 1 

80 QX = ABS (AX):QY = ABS (AY):RX = AB 

S <BX) :RY = ABS < BY) 
85 HCOLOR= 3 

100 HPLOT X0,Y0 TO Xl.Yl! HPLOT 279 - XO 
,Y0 TO 279 - XI, Yl: HPLOT X0,191 - 
YO TO XI, 191 - Yl : HPLOT 279 - XO 
,191 - YO TO 279 - XI, 191 - Yl 
110 XO = XO + AX:YO = YO AY:X1 = XI + B 

X;Y1 = Yl + BY 
120 IF XO < QX OR XO > 139 - QX THEN AX 

= - AX: HCOLOR= RND <1) * 4 
130 IF YO < QY OR YO > 93 - QY THEN AY = 

- AY: HCOLOR= RND < 1) * 4 

140 IF XI < RX OR XI > 139 - RX THEN BX 

= - BX: HCOLOR= WD <1> * 4 
150 IF Yl < RY OR Yl > 95 - RY THEN BY = 

- BY: HCOLQR= RND <1) * 4 

200 IF PEEK ( - 16384) > 127 THEN X = 
PEEK ( - 16334): POKE - 16368,0: 

ON X = 197 GOTO 50 : ON X = 1 55 GOT 
240: ON X < > 160 GOTO 60: WAIT 

- 16384,128: POKE - 16368,0 
210 IF RND (1) * 300 > 1 THEN 100 
220 IF RND <0) * 1200 < 1 THEN 50 
230 GOTO 60 

240 TEXT : END 



Programme CARRE 

10 REM CARRE 
50 HGR2 

60 HC0L0R= 3: GOTO 80 
70 HCOLOR= RND ( 1 > » 4 
80 X - INT < RND <1) * 49) * 2 
100 HPLOT X,0 TO X,191: HPLOT X + 1,0 TO 
X + 1,191 

110 HPLOT 190 - X,0 TO 190 - X,191: HPLO 
T 191 - X,0 TO 191 - X,191 



120 HPLOT f X TO 191 *Xi HPLOT t X + 1 TO 
191 ,X ♦ 1 

130 HPLOT 0,190 - X TO 191,190 - Xi HPLO 

T 0,191 - X TO 191,191 - X 
200 IF PEEK ( - 16384) < 128 THEN 70 
210 X = PEEK < - 16384): POKE - 16368,0 
: ON X = 197 GOTO 50 : ON X = 155 G 

OTO 230: ON X < > 1 60 GOTO 70 
220 WAIT - 16384,128: POKE - 16368,0: 

GOTO 70 
230 TEXT : END 



Programme LIGNES 

10 REM LIGNES 
30 HGR2 

60 XO = RND CI) * 276 :YO = RND <1) * 18 
9 

65 XI = RND U) * 276:Y1 = RND (1) * 18 
9 

70 AY = RND < 1 > # 2 * 1 :AX ■■ RND < 1 ) * 
3 ♦ 1 

75 BY = RND C 1 > * 2 + 1 iBX ■ RND < 1 ) » 
3 ♦ 1 

80 QX = ABS <AX):QY = ABS <AY):RX = AB 

S C BX) : RY = ABS C BY) 
85 HCQLOR- 3 
100 HPLOT XO,YO TO XI ,Y1 

110 XO - XO + AX:Y0 = YO + AY:X1 » XI + B 

XsYl m Yl * BY 
120 IF XO < QX OR XO > 279 - QX THEN AX 

= - AX: HCOLOR= RND (1) * 4 
130 IF YO < QY OR YO ) 191 - QY THEN AY 

■ - AY: HCOLOR= RND (1) * 4 
140 IF XI < RX OR XI > 279 - RX THEN BX 

= - BX: HCOLOR= RND <1) * 4 
150 IF Yl < RY OR Yl > 191 - RY THEN BY 

= - BY: HCOLOR= RND (1) * 4 
200 IF PEEK < - 16384) > 127 THEN X = 

PEEK < - 16384): POKE - 16368,0: 

ON X = 197 GOTO 50: ON X = 155 GOT 

240 r ON X < ) 1 60 GOTO 60: WAIT 
- 16384,128: POKE - 16368,0 
210 IF RND <1) * 300 > 1 THEN 100 
220 IF RND <0) * 1200 < 1 THEN 50 
230 GOTO 60 
240 TEXT : END 



Source Big Mac 
Programme HUIT.S 



i #**♦*»♦«*»»****#**♦»*###*»»#»**# 
•graph i smes aleatoi res 
• par thierry han 

•DATE: 21/7/84 

ft******************************* 



2 
3 
4 
3 

6 ; 

7 PAGE1 

8 TEXTE 

9 CLAU 
STRB 



EQU *C054 
EQU SC051 
EQU *C000 
EQU *C0 10 



10 

h ; 

12 hgr2 equ *f3d8 

13 hcolor equ 4f6f0 

14 hplot equ *f457 

15 HLINE EQU *F53A 

16 ; 

17 FACTOMEM EQU *EB2B 

MEM (Y.X) 



;FAC => 



1 8 



19 
20 
21 



22 

23 

24 

25 

26 
27 
28 
29 
30 

31 



YTOFAC EQU SE301 ; YREG = 

> FAC 

FACTO I NT EQU *E1 OC ; INT< FA 

C) => INTL/H 
RND EQU *EFAE j RND< FA 

C) => FAC 

FACTOARG EQU *EB63 ;FAC => 

ARG 

FMULTM EQU *E97F ;MEM <Y 

r fk) => ARG; ARG*FAC => FAC 

FMULT1 EQU *E982 ;ARG*FA 
C =) FAC (NECESSITY GETSGN) 

FDI^ EQU *EA69 ; ARG/ FA 

C =) FAC <NECESSITE GETSGN) 

INTTOFAC EQU *E2F2 ;Y/A =»> 

FAC 

; 

INTL EQU *A1 

I NTH EQU »A0 

; 

ORG *F00 ; ZONE D 

E STOCKAGE 
XO DFS 1 



I 
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Y0 


DFS 1 


33 


XI 


DFS 1 


34 


VI 


DFS 1 


35 


XX 


DFS 1 


36 


YY0 


DFS 1 


37 


XXI 


DFS 1 


38 


YY1 


DFS 1 


oo 

39 


AX 


DFS 1 


40 


AY 


DFS 1 


41 


BX 


DFS 1 


4^ 


BY 


DFS 1 


43 


QX 


DFS 4 


44 


YREG 


DFS 1 


45 


XREG 


DFS ! 


46 


F 


DFS 3 




NTE 35/24 


47 


! 




^ o 
48 




ORG 4803 


49 


;F=35/24 


30 




LDY H35 


51 




JSR YTOFAC 


52 




JSR FACTOARS 


33 




LDY H24 


54 




JSR YTOFAC 


55 




JSR GETSGN 


56 




JSR FD1V 


57 




LDX HF 


58 




LDY /F 


59 




JSR FACT OM EM 


60 


; 




61 


; DEBUT 


DU PROGRAMME 


62 


; 




63 


INIT 
-3 


LDX H3 


64 




JSR HCOLOR 


65 




JSR HGR2 


66 


; 




67 


;CH0IX 


DES COORDONNEES <0- 


68 






69 


TI RAGE 


JSR RND92 


70 




STX X0 


/l 




JSR RND92 


72 




STX Y0 


73 




JSR RND92 


74 




STX XI 


75 




JSR RND92 


76 




STX Yl 


■77 


( 




78 


iCBOIX 


DES VITESSES < 1 -4 ) 


79 


; 




80 




JSR RND3 


81 




STX AX 


82 




JSR RND3 


83 




STX AY 


94 




JSR RND3 


85 




STX BX 


86 




JSR RND3 


87 




STX BY 


88 


i 




89 


: 




90 


jVALEURS ABSOLUES 


91 


; 




92 




LDX HO 


93 




CLC 


94 


ABS 


LDA AX ,X 


95 




BPL ABS. NEXT 


96 




EOR H*FF 




ION SIGNE 


97 




ADC HI 


99 


ABS. NEXT 5TA QX ,X 


99 




I NX 


i n n 

1 uu 




CPX »4 


101 




8NE ABS 


102 


; 





; CONSTA 



? HCOLOR 



; JNVERS 



i PLOTS DES 8 SEGMENTS 
■ 

TRACE8 JSR TRACE4 
COINS 

JSR RETOURNE 

IQUES 

JSR TRACE4 
JSR RETOURNE 
EN PLACE 



j DEPLACEMENT DES POINTS 
i 

DEPL 
ON 



103 
104 

105 

106 

107 

108 
109 

110 
1 1 1 
1 12 
113 
1 14 
115 
1 16 
117 

118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
1 30 
131 

132 
133 
134 
135 
! 36 
137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

143 

149 

! 50 

151 

152 



153 

154 RET. I 

155 ESCAPE 

156 
157 
158 
159 



; QUATRE 

;SYMETR 

; PLOTS 
; REMI SE 



TEST 



AX 



INVERSE 



E SIGNE 



T . NEXT 



uai r 

E 



160 
161 
162 
163 
164 
165 
166 
167 



LDX 


no 


LDA 


XO ,X 


CLC 




ADC 


AX.X 


STA 


X0,X 


I NX 




CPX 


H4 


BNE 


DEPL 


DEPASSEMENT 


LDX 


HO 


LDA 


tt?3 


SEC 




SBC 


QX,X 


CMP 


XO ,x 


BCC 


INVERSE 


LDA 


xo,x 


CMP 


QX,X 


BCS 


T .NEXT 


LDA 


HO 


SEC 




SBC 


AX,X 


STA 


AX,X 


STX 


XREG 


JSR 


NEWCOL 


LDX 


XREG 


I NX 




CPX 


H4 


BNE 


TEST 


VJIER 


LDA 


CLAV 


BPL 


DO 


BIT 


STRB 


CMP 


*"E" 


BNE 


ESCAPE 


JMP 


INIT 


CMP 


H49B 


BEG 


FIN 


CMP 


H*A0 


BNE 


NELID I R 


LDA 


CLAU 


BPL 


WAIT 


LDA 


STRB 



jADDITI 



;X0>95- 

;X0>AX 
; INVERS 



; RI EN 
; EFFACE 

; = ESC 



jESPACE 

j AUTRE 
JATTENT 



jSI RND< 1 >*5l2-0, NOUVEAUX POINTS 

DO LDY HI 

JSR YTOFAC 
JSR RND 



32 
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168 
1 69 
170 
1 71 
1 72 
1 73 
174 
1 75 

176 

177 
178 
179 
1 80 
181 
1 92 
183 
134 
135 
1 86 
187 
1 88 
18? 
190 

191 

192 

193 
1 94 
193 
1 96 
197 
1 98 
199 

200 
201 
202 

20 3 
204 
205 
206 
207 
208 
209 
210 

21 1 
?\ ? 

213 
214 
215 
216 
217 
218 
21? 
220 
221 
222 
223 
224 

225 
226 
227 
229 
22? 
230 
231 
232 
233 



UVEAU 



OUCLE 



JSR FACTOARG 
LDA #2 
LDY ttO 

JSR INTTOFAC 
JSR FMULT 
JSR FACTO INT 
LDA 1NTL 
BEG NEUDIR 

JMP TRACE 8 



;512 

;=0 , NO 
;<>0, B 



;SI RND<0>*2048<1 , EFFACE 
I 

NEWOIR LDY HO 

JSR YTOFAC 
JSR RND 
JSR FACTOARG 
LDA tt8 
LDY ttO 

JSR INTTOFAC 

JSR FMULT 

JSR FACTO INT 

LDA INTL 

8EQ RET. I 
IT < EFFACE) 

JSR NEWCOL 
OUVELLE COULEUR 

JMP T I RAGE 
UX POINTS 



FIN 



TRACE4 
AUCHE 



ROITE 



UCHE 



BIT TEXTE 
BIT PAOEI 
RTS 



LDA XO 

STA XXO 
LDA YO 
ST A YYO 
LDA XI 
STA XXI 
LDA Yl 
STA YY1 
JSR TRACE 



SEC 

LDA »1?1 

SBC XO 

STA XXO 
LDA YO 
STA YYO 
LDA »191 
SBC XI 
STA XXI 
LDA Yl 
STA YY1 
JSR TRACE 



SEC 

LDA XO 
STA XXO 
LDA #191 
SBC YO 
STA YYO 
LDA XI 
STA XXI 
LDA M191 
SBC Yl 



;2048 

;=0, IN 
;<>0, N 

(NOUMEA 



! HAUT-G 



•HAUT-D 



; BAS-6A 



234 




STA YY1 


235 




JSR TRACE 


236 


; 




237 


i 




238 




SEC 




OITE 




239 




LDA #!91 


240 




SBC XO 


241 




STA XXO 


242 




LDA «191 


243 




sec yo 


244 




STA YYO 


245 




LDA *191 


246 




SBC XI 


247 




STA XXI 


248 




LDA *!91 


249 




SBC Yl 


250 




STA YY1 


251 


» 




252 


i 




253 


TRACE 


LDY XXO 


254 




JSP MULTF 


255 




LDA YYO 


256 




LDX INTL 


257 




LDY I NTH 


258 




JSR HPLOT 


25? 




LDY XXI 


260 




JSR MULTF 


261 




LDA INTL 


262 




LDX INTH 


263 




LDY YY1 


264 




JMP HLINE 


265 


• 
i 




266 






267 


RETOURNE 


LDA XO 




I ON X-Y 


248 




LDX YO 


269 




STA YO 


270 




STX XO 


271 




LDA XI 


272 




LDX Yl 


273 




STA Yl 


274 




STX XI 


275 




RTS 


276 


• 

* 




277 


i 




278 


; Y= I NT ( RND< 1 ) *92) 


279 


RND92 


LDY *92 


280 




BNE RAND 


281 


;Y=1NT(RND( 1 >*3>+i 


282 


RND3 


LDY «3 


283 




JSR RAND 


284 




I NX 


285 




RTS 


286 


:Y=INT< RND< 1 >*Y> 


287 


RAND 


STY YREG 


238 




LDY ttl 


289 




JSR YTOFAC 


290 




JSR RND 


291 




JSR FACTOARG 


292 




LDY YREG 


293 




JSR YTOFAC 


294 




JSR FMULT 




*Y 




295 




JSR FACTO I NT 


296 




LDX INTL 


297 




RTS 


298 


? 




29? 


:FAC=JNT<Y#35/24) 


300 






301 


MULTF 


JSR YTOFAC 


302 




LDA »F 


303 




LDY /F 



; BAS-DR 



;X-LSB 
;X-MSB 



iX-LSB 
;X-MSB 



; INFERS 



:RND(1> 



; RND< 1 > 



; 35/24 
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33 



304 
305 
306 ; 

30 7 FMULT 



JSR FMULTM 
JMP FACTO J NT 



308 

309 ; 

310 GETSGN 
31 1 



JSR GETSGN 
AIRE POUR FMULT 1 
JMP FMULT 1 



JNECESS 



LDA *Art 
EOR SA? 



312 
31 3 
314 
315 ; 

314 NEUCOL 

317 

318 

319 ; 

320 



STA SAB 

LDA -*9D 
RTS 

LDY «4 

JSR RAND 

JMP HCOLOR 

END 



HUIT 



•803. A20 
















0803- 


AO 


23 


20 


01 


E3 








0808- 


20 


63 


EB 


AO 


18 


20 


01 


E3 


0810 - 


20 


10 


OA 


20 


69 


EA 


A2 


12 


0818- 


AO 


OF 


20 


2B 


EB 


A2 


03 


20 


0820- 


FO 


F6 


20 


D8 


F3 


20 


04 


09 


0828- 


8E 


00 
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09 


8E 


01 


0830- 


OF 


20 


D4 


09 


8E 


02 


OF 


20 


0838- 


D4 


09 


8E 


03 


OF 


20 


D8 


09 


0840- 


8F 


08 


OF 


20 


D8 


09 


8E 


09 


0848- 


OF 


20 
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OA 
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0650- 


08 


09 


8G 


OB 


OF 


A2 


00 


18 


0858- 


BO 


08 


OF 


10 


04 


49 


FF 


69 


0860- 


01 


90 


OC 


OF 


E8 


EO 


04 


DU 


0868- 


EF 


20 


IB 


09 


20 


BB 


09 


20 


0870- 


IB 


0? 


20 


BB 


09 


A2 


00 


BO 


0878- 


00 


OF 


18 


70 


08 


OF 


9D 


00 


0880- 


OF 


E8 


EO 


04 


DO 


F I 


A? 


00 


0888- 


A9 5F 


38 


FO 


OC 


OF 


DO- 


00 


0890- 


OF 90 


08 


BD 


00 


OF 


DO 


OC 


0898- 


OF 


BO 


12 


A9 


00 


36 


FD 


00 
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OF 


90 


08 OF 


9E 


1 1 


OF 


20 





19 


OA 


AE 


1 1 


U r 


rz a 


fcU 


04 


0880 - 


DO 


06 


AD 


00 


- -■ 


1 n 
1 U 


1 H 


2C 




10 


CO 


C9 


cs 




Uj 




1 D 


08C0- 


08 C9 


96 FO 


4F 


P9 






08C8- 


28 AD 


00 


CO 


10 


FB 


AD 


10 


0800- 


CO 


AO 


01 


20 


01 


E3 


20 


AE 


08D8- 


EF 


20 


63 


ES 


A9 


02 


AO 


00 


08E0- 


20 


F2 


E2 


20 


OA 


OA 


20 


OC 


08E8- 


El 


AO 


Al 


00 


FO 


03 


4C 


69 


08F0- 


08 


AO 


00 


20 


01 


E3 


20 


AE 
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EF 


20 


A3 


EB 


A9 


08 


AO 


00 


0900- 


20 


F2 


E2 
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OA 


OA 


20 
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Al 


00 


FO 


BO 


20 
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0910- 


OA 


4C 


25 


0© 


2C 


51 


CO 
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0918- 


54 


CO 


60 


AD 


00 


OF 
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01 


OF 


8D 


05 


OF 
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06 
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03 
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80 


07 
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20 
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09 


38 


A9 


0938- 


BF 


ED 


00 


OF 


8D 


04 


OF 


AD 


0940- 


01 


OF 


QD 


05 


OF 


A9 


BF 


ED 


0948- 


02 


OF 


9D 


06 


OF 


AD 


03 


OF 


0930- 


80 


07 


OF 


20 


97 


09 


38 


A.D 


0958- 


ou 


OF 


3D 


04 


OF 


A9 


BF 


ED 


0960- 


01 


OF 


8D 


05 


OF 


AD 


02 


OF 



0968- 


8D 


06 


OF 


A9 


BF 


ED 03 


OF 


0970- 


8D 


07 


OF 


20 


97 


09 38 


A9 


0978- 


BF 


ED 


OU 


OF 


8D 


04 OF 


A9 


0990- 


BF 


ED 


01 


OF 


80 


05 OF 


A9 


0988- 


BF 


ED 


02 


OF 


8D 


06 OF 


A9 


0990- 


BF 


ED 


03 


OF 


8D 


07 OF 


AC 


0998- 


04 OF 


20 


FD 


09 


AD 05 


OF 


09A0- 


AE Al 


00 


AC 


AO 


00 20 


57 


9A8- 


F4 


AC 


06 


OF 


20 


FD 09 


AD 


09BO- 


Al 


00 


AE 


AO 


00 


AC 7 


OF 


09B8- 


AC 


3A 




AD 


00 


OF AE 


01 


09C0- 


OF 


80 


01 


UH 


8E 


00 OF 


AD 


09C3- 


02 


OF 


AE 


03 


OF 


3D 03 


OF 


0900- 


8E 


02 


OF 


60 


AO 
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07 


09D8- 


AO 


03 


20 


OF 


09 


E8 60 


8C 


09F0- 
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OF 


AO 


01 


20 


01 E3 


20 


09E8- 
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20 


63 


EB 


AC 10 


OF 


09F0- 


20 


01 


E3 


20 


OA 


OA 20 


OC 


09F8- 


El 


AE 


Al 


00 


60 


20 1 


E3 


OAOO- 


A9 


12 


AO 


OF 


20 


7F E9 


4C 


0A0 8- 


OC 


El 


20 


10 


UA 


4C 82 


E9 


0A10- 


A5 


AA 


45 


A2 


85 
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9D 
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60 


AO 


04 


20 


DF 
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FO 
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Vos textes en direct de votre ordinateur 
a nos photocomposeuses 

Gain de temps et economie Les textes de vos articles, catalogues. 

annuaires ou brochures saisis sur 
votre micro-ordinateur sont envoyes 
directement sur noire 
photocompeuse 

Nous vous evitons ainsi, 
le cout et le temps de la saisie 
supplementaire que 
necessite le traitement 
traditionnel de la photocomposition 
avant I'impression des documents. 




Vous 



Nous 



Si vous le desirez nous pouvons 
egalement nous charger 
de I'impression et du brochage. 
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Recuperez les icones du systeme 



Marianne Sutz 



Le Hchier "systeme", situe sur une 
disquette d'amor^age, comporte qua- 
tre icones frequemment utilises pour 
accompagner les messages d'erreur 
Void une petite routine en langage 
machine, qui autorise la recuperation 
de ces icones depuis un programme 
Basic. 

Utilisation de ia routine 

Le code objet doit, comme a l'accou- 
tumee, etre place dans un tableau de 



variables. Ensuite. il faut prevoir un 
tableau de 66 variables entieres pour 
la definition de 1'lcOne h recuperer 
(un icdne est constitue de 32 lignes 
de 32 pixels; il faut done 64 mots de 
16 bits pour la definition, plus les 
deux mots indiquant la taille, puisque 
J'icone sora affich6 avee 1'instruction 
PUT). Pour le passage des parame- 
tres depuis le Basic vers !a routine, il 
faut utiliser : 

GALL ADR'(ID%.VARPTR(T%(0))) 



avec la premiere version du Basic 
Microsoft; 

ADR! ID%.VARPTR(T%(0>) avec la 
version actuelle. 

ADR! represents I'adresse de la rou- 
tine. 

ID% rcprdscntc 1'identificateur de 
I'lcdne (-6047, 0, 1 ou 2). 
VARPTR(T%(0)) passe a la routine 
I'adresse de base du tableau dc va 
riables destine a recevoir IMcdne. 



!0 PROGRAMME DE DEMONSTRATION 

20' 

30 CLS DEFINT A-Z DIM C(18)J(65) 
40' 

50 ' Code objet a implanter en memoire 

60' 

70 DATA &h4E56,0 i &h42A7 J &h3F2E J &hC,&hA9BB 
80 DATA &h2057,&h2250,&h246E J &h8,&h24FC J 32 
90 DATA 32,&H70 1 F.&H24D9.&H5 1 C8.&HFFFC 
100 DATA &H4E5E,&H4E75 
I 10' 

120 1 Identificateurs des icones 
130' 

1 40 DATA 0,1,2,-6047 
150' 

160 * Implantation du code objet en memoire 
170' 

1 80 FOR 1-0 TO l8:READC(i):NEXT 
I90D-0GOSUB 170 
200 RESTORE 80 
2I0D=100:GOSUB 170 
220 60T0 1 50 

230 ' S.p. chargement et/ou aff ichage des icones 

240 FOR P=50 TO 200 STEP 50 READ ID 

250 A!=VARPTR(C(0)) CALL A!(ID J VARPTR(T(0))) 

260 PUT(P+D,P)J:NEXT 

270 RETURN 



ID=-6047 



ID=0 



I D= 1 



10 = 2 



. Cette routine charge un icone appartenant au "fichier systeme' (ressource) en 
; memoire (si ce n'est deja fait) et transfers sa deHnition depuis la zone de 
; memoire choisie par le systeme vers un tableau de variables. 
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av 

35 



OOOftm 

0000 Trap _6etlcon $A9BB 

0000 

0000 4E56 0000 LINK A6.-0 

0004 42A7 CLR.L -(SP) ; Reserve 4 octets au sommet de la pile. 

0006 ; , l'adresse du poinLeur sur la definition 

0006 ; ; de Heine sera retournee a cet endrolt. 

0006 3F2E 000C MOVE 12(A6).-(SP) ; Llndentlfieur de l lcone. passe depuls 

000A ; ; le programme Basic, est empile (2 

000A ; ; octets). 

000A A9BB _6etlcon ; Ctiargement en mSmoIre de la definition 

000C ; ; de I'icone et retour de l'adresse du 

000C ; ; polnteur a (emplacement reserve 

000C ; ; precedemment. 

000C 2057 MOVEA.L (SP),A0 ; L'adresse du poinLeur est placee dans 

000E ; ; le registre dadresse A0. 

00^ 2250 MOVEA.L (A0),A 1 ; Le registre A0 contient ladresse ou se 

0010 ; ; trouve l'adresse du premier des octets 

00 '0 ; ; formanL la definition de I'icone 

0010 ; ; (indirection). Apres cetle instruction, 

0010 ; , l'adresse du premier octet se trouve 

0010 ; ; dans le registre dadresse Al. 

0010 246E 0008 MOVEA.t 8(A6),A2 , L'adresse de base du tableau de 66 

0014 ; ; variables entieres est placee dans A2. 

0014 24FC 00200020 MOVE.L *$00200020.(A2r> ; tes deux premiers elements du tableau 
001 A ; ; de variables sont initialises a 32 ($20) 

001A ; ; car les Ic6nes font 32»32 pixels. Ceci 

001A ; ; permet ("utilisation de llnstruction 

001A ; ; PUT des le retour au programme Basic. 

001A 701F MOVEQ '31.00 ; 128 octets, soit 32 mots de 32 bits 

001C 24D9 Boucie rioVE.L (A1>+,(A2>+ ; sont necessaires I la representation 

00 IE 51C8 FFFC DBRA D0,Boucle ; d'un icone. Le compUur de boucie D0 

0022 4E5E UNLK A6 ; est Initialise a 31 (la sortie de boucie 

0024 4E75 RTS ; a lieu lorsque D0 est egal a - 1). 
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Sur la disquette macintosh 
nurnera 15/1t> 

votvs irouverez les programmes Basic 
"tditeur", "Mad Apple! I m , "Pairt/ 
Basic", "Paini/Starf, ef dartres 
programmes "exemples" employes 
pour niluztraiioA des articles publies 
dans les numeros I5et Ibde Pom's. 

tes polices de Caract&res "Los 
angles" m ef J 2 point*. "CAIRO". 
"Mos ttsley" ZH tl 12 points, 
'Hollywood- ef "Manbai tan' 

Les programmes • 

• LOCALIZER : configuration du 
clavier AURTi pour la France (ou un 
autre pays). 

• Cople de disque pour effectuer 
des copies de disqueffes avec un seui 
lecteur sur un Macintosh IZ&Ko, en 
seulement quafre passages. 
150D0 p TTC franco 

fbon de command© page 7Q) 
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Modification des informations 

pour le "Finder" 

Jean-Luc Bazanegue 



Dans le precedent numero de Pom's, 
nous vous proposions un programme 
permertant d'afficher ou de lister les 
Informations sur les fichiers. Nous 
avons pensp qu'il pourrait etre int6- 
ressant de pouvoir rnanipuler directe- 
ment ces informations; e'est l'obiet 
de ce programme. On ne peut bien 
sur pas tout modifier, puisqu'il serait 
dangeureux de toucher aux indica- 
tions sur la position physique ou logi- 
que des fichiers, mais ce programme 
aulorise la modification du nom. du 
type, du nom de ereateur ainsi que 
de divers parametres lies a 1'appa- 
rence et a la position de Ticone re- 
presentant le fichier. 

Mode d'emploi 

Ce programme fonctionnc avec la 
version 2 du Basic Microsoft, et avec 
toutes les configurations (Macintosh 
128 et 512Ko, avec ou sans lecteur 
de disquettes exteme). Toutefois. 
avec un Mac 128Kcx il est preferable 
dc nc pas entrer les REMarques; ceci 
autorise une Vitesse d' execution ac- 
crue (le programme situe sur la dis- 
quette Mac numero 18 ne comportc 
pas de rernarques). Pour ceux d'en- 
tre-vous qui ne disposent pas encore 
de la nouvelle version du Basic, si- 
gnalons que les routines en langages 
machine fonctionnent aussi avec Tan- 



cienne version; le programme est 
done facilement adaptable. 

Modification du nom de fichier 

Un nom de fichier peut contenir jus- 
aua 63 caracteres et, bien sur, ne 
doit pas £tre de longueur nulle. 
Enfin. il ne peut pas comporter le ca- 
ractere "':". qui est utilise par le sys- 
teme comme separateur entre le 
nom du volume et le nom de fichier. 
Le programme intercepte toutes les 
erreurs possibles- D'une manSere ge- 
nerate, il vaut mieux s'abstenir de 
modifier les noms des fichiers "syste- 
mes", afin de ne pas perturber le 
fonctionnement du systeme d'exploi- 
tation. Si ceia devatt aniver. il n'y 
aurait rien de grave puisque ce que 
fait le programme n'est pas irreversi- 
ble. 

Modification du type de fichier 

l e type de fichier est constitue de 
quatre caracteres ASCII. Si vous en- 
trez une chaine comportant moins de 
quatre caracteres, les emplacements 
laisses libres seront remplaces par un 
octet nul. Dans la zone de saisie. un 
octet nul est remplace par un point 
afin de visualiser sa presence. 

Modification du nom de ereateur 

Les rernarques au sujet du type de 
fichier sont aussi valables ici. II 



convient de signaler que le nom du 
ereateur est utilise par le "Finder" 
pour determiner le programme d'ap- 
plication a partir duquel est issu le fi- 
chier. Par exemple, un fichier de ca- 
racteres issu du "Font Mover" a, 
comme nom de ereateur, "FMOV". 
Si 1'on modifie cette chaine, une ten- 
tative d'ouverture du fichier provo- 
quera I'affichage du message "II n'y 
a pas d' application pour ouvrir ce 
document". 

Position horizontal* et vertical* 
de Hcone 

Si I'ic6ne du fichier se trouve sur le 
bureau. la position, en pixels, est re- 
lative a Tangle superieur gauche de 
1'ecran. Dans le cas ou l'ic6ne est 
situe dans la fenetre d'un dossier (ou 
la fenetre du volume), la position est 
relative a Tangle superieur gauche de 
la fenetre au moment de sa creation. 

Parametres divers 

II est aussi possible de rendre un fi- 
chier invisible, de le placer sur le bu- 
reau alors qu'il se trouvait dans une 
fenetre. etc... Nous ne nous eten 
drons pas sur ces points, expliques 
en details dans le precedent numero 
de Pom's. 



Cdit 




Pour reprendre la main... 

II vous est ccrtaincment arrive, lors 
de Tficriture ou de la mlse au point 
d'un programme Basic, et alors que 
vous aviez supprimer des menus, de 
ne pas pouvoir reprendre ia main. 
Ceci est fort desagr£able lorsque Ton 
a fait de nombreuses modifications, 
car il n*est pas possible de les sauve- 
garder. Si cette mesaventure devait 
vous aniver, sachez qu'il existe une 
autre solution que le "Reset". II faut 
apptiyer sur la touche "Interruption" 
ceci a pour effet d'afficher le celebre 
message "Une grave erreur sys- 
teme . ". Cliquez ensuite sur "Re- 
prendre" (ou "Resume"); la fenetre 
de sortie s'affiche mais Ton ne peut 
toujours pas reprendre la main Si 
Ton renouvelle ['operation, on ob- 
rjent I'affichage de la fenetre de 
commande. 11 suffit maintenant d'en- 
trer la commande "MENU RESET" 
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Routines utllisees par le programme Basic 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 xxxx 
0050 xxxx 
0090 

0090 xxxx 

00FFFFFF 

00D0 

0000 

0000 

00D0 

00D0 

00D0 



00D4 
00D4 
00D6 
00DA 
00DA 
00DE 
00E4 
00E4 
00E6 
00E8 



00EE 
00EE 
00EE 
00EE 
00EE 
00EE 
00EE 

00EE 4E56 
00F2 41FA 
00F6 

00F6 2248 
00F8 

00F8 70 13 
00FA 4299 
00FC 51C8 
0100 

0100 45FA 
0104 214A 
0108 

0108 226E 

010C 

010C 

010C 72 1A 
010E 





Trap 


-GetVollnfo 


$A007 




Trap 


-ReName 


U00B 




Trap 


_6etfilelnro 


JA00C 




Tran 
.1 rap 


C B fc:i ft i n f n 
_oeir iieinr u 


♦ AkJfcHJ 




Trap 


-MountVol 


$A00F 




Trap 


-Offline 


$A035 




Tran 


— LIOIBLOl I8FIU 






Trap 


-DrawMenuBar 


$A937 


XXXX 


Tampon 


DCB.L 20,0 




xxxx 


Norn 


DCB.L 16.0 




xxxx 


> 

N.Nom 


DCB.L 16.0 






Masque 


EQU (00FFFFFF 



; Rrelourne les informations sur le volume. 
; Change le nom du fichier etVou du volume. 
; Retourne les informations sur le fichier. 
; Modi He les informations sur le fichier. 
; Charge en memoire les informations sur la disquette. 
; Libera la memoire utilise par le volume. 
; Annule un menu (en memoire). 
; Reaffiche la barre das menus. 

; Tampon de 80 octets pour les ent/sorties. 
; Tampon de 64 octets pour le nom de volume ou le nom 
; de fichier. 

; Tampon de 64 octets pour le nouveau nom de fichier. 
; Constanta pour adresses sur 24 bits. 

; Sous-programme commun aux deux routines. II est utilise pour transferer les 
; caracteres du nom de volume ou du nom de fichier depuis le programme Basic 
, vers le tampon "Nom" ou le tampon "N.Nom". 

; Le premier segment (Sp.N.F) est utilise unlquement pour les noms de fichier. 

; L adresse du descripteur de la chains, placee dans la 

; pile, est transferee dans A 1 . 
; D1 est utilise comme compteur de boucles. 
i Place le nombre de caracteres formant le nom dans la 
; premier octet du tampon Nom ou N.Nom. 
; Ladresse de la chains est placee dans D2. 

; 5upprlme ( octet de polds fort pour obtenir une adresse 

; valide sur 24 bits. 
; L adresse obtenue est placee dans A3. 
; Boucle de transfert de la chaine. 
; D1 est decrement de 1 et compare ft -1 .SI different, 
branchement sur "Tr Nom* 
; Retour a la routine appelante. 

, Routine utillsee pour lire les Informations sur le volume et le fichier a traitor. 
; Pour le volume, seul le numero de reference est retenu. Les informations 
; obtenues sont passees au programme Basic par I'intermediaire du tampon 
; de 80 octets Tampon" situe, pour le programme Basic, dans les 40 premiers 
; elements du tableau de variables entires TC. 



226E 




Sp.N.F 


MOVE A. L 


8(A6),A1 


72 3E 
14E9 


0001 


Sp.N.V 


MOVEQ 
MOVE.B 


•62.D1 
1(A1).(A2)+ 


2429 
0282 


0001 

00FFFFFF 




MOVE.L 
ANDI.L 


KAU.D2 
•Masque ,D2 


2642 
14DB 

51C9 


FFFC 


Tr.Nom 

- 


MOVE A. L 

MOVE.B 

DBRA 


D2.A3 
(A3K(A2>+ 
D1.Tr. Nom 


4E75 




• 


RTS 





0000 

FF0C 



L.lnfo 



LINK 
LEA 



A6.»0 

Tampon,A0 



FFFC 

FF4E 
0012 

000C 



MOVEA.L A0.AI 

; Reinitialisation du tampon (mise 

MOVEQ *19.D0 

T.Zaro CLR.L (Al>f 

DBRA D0.T.2ero 

LEA Nom.A2 

MOVE.L A2,18(A0) 

MOVEA.L 12(A6).A1 

* 

MOVEQ *26.D1 



, L'adresse de base du tampon (correspondant a 
; VARPTR(TC(0)) ) est placee dans A0. 
; Copie de A0 dans A1 
ft zero). 

; 00 est un compteur de boucles. On charge la valeur 19 
; dans le comptaur. Comme I'instruction DBRA provoque 
; une sortie de la boucle lorsque le compteur est egal a 
; -1, on met ft zero 20 mots de 32 bits, soit 80 octets. 
; Place l'adresse du tampon "Nom" dans A2. 
; Adresse du tampon "Nom" dans A£K iq (voir Pom s 

; numero 17." Catalogue sur Imp. - ). 

; L'adresse du descripteur de la chaine contenant le nom 

; du volume, placee dans la pile au moment du 'CALL", 

; est transferee dans le reglstre d adresse A1 . 

; Compteur de boucles pour le sous-programme Sp.N.V. 

; Un nom de volume contient au maximum 27 caractires. 



010E 
0110 
01 14 
0114 
0114 
01 14 
0114 
0116 
01 1A 
01 IE 
0120 
0124 
0126 
0128 
012A 
012A 
012A 
012A 
012A 
012E 
0132 
0136 
013A 
013C 
0140 
0144 
0146 
0148 
014A 
014E 
0152 
0154 
0158 
015C 
015E 
0160 
0162 
0162 
0162 
0162 
0166 
016A 
016C 
016E 
0170 



61 C6 

5368 00 1C 



BSR.S 
SUBQ 



Sp.N.V 
•I. MUG) 



A007 

45FA FF38 
214A 0012 
61 B0 

4268 00 1C 
A00C 
4E5E 
4E75 



_6etVollnfo 
LEA Nom.A2 
HOVE! A2.18U0) 
BSR.S Sp.N.F 
CLR 28U0) 
_6etFilelnfo 
UNLK A6 
RTS 



; Branchement vers le sous-prog. "Sp.N.V". 
; Le mot da 16 bits situe a I'adresse A0+28. mis a zero 
; par la boucle T.Zero. est decrement* de 1 et devlent 
; ainsi negatif. Cela indique a la routine _GetVollnfc 
; qu'elle dolt utillser le polnLeur (A0+18) sur le nom 
; de fichier. 

; On effecLue las memes operations que pour la routine 

; precedent* rnlse a part i'adresse A0+28 qui est remise 

; a zero pour indiquer a la routine _6etfilelnfo qu'elle 

: doit utlliser. pour determiner le volume, le numero de 

; reference place dans A0+22 par _6etVollnfo. 

; Retour au 

; programme Basic. 



; Routine pour modifier les informations utilisees par le "Finder" et 
: modifier le nom de fichier. 



4E56 


0000 


E.lnfo 


LINK 


A6*0 


; Passage du nom de fichier Initial aux routines systeme. 


41FA 


FED0 




LEA 


Tampon.A0 


; La methode utilisee est la mime que pour les routines 


43FA 


FFIC 




LEA 


Nom.A1 


; precedents. 


2149 


0012 




MOVE.L 


A1.18U0) 




A00D 






-Setfllelnfo 


; Modification des Informations. 


45FA 


FF52 




LEA 


N.Nom.A2 


; On passe maintenant le nouveau nom du fichier. Un 


214A 


001C 




MOVE.L 


A2.28(A0) 


; polnLeur sur ce nouveau nom dolt se trouver dans 


61 8A 






BSR.S 


Sp.N.F 


; I'adresse A0+28. 


A00B 






_ReName 






A035 






-Offline 




; On vide la memoire des informations sur le volume. 


363C 


0001 




MOVE 


-1.D3 


; puis on les recharge avec la routine systeme 


3143 


0016 


Er. Drive 


MOVE 


D3,22(A0) 


; -MountVol . Ceci permet d'avoir Loujours en memoire 


A00F 






_MountVol 


; des informations a jour La routine _MountVol utilise 


363C 


0002 




MOVE 


•2.D3 


; le numero du drive; pour determiner ce numero, on 


3828 


0010 




MOVE 


I6(A0),M 


; utilise le code d'erreur retourne dans A0+16. On essai 


66 F0 






BNE.S 


Er .Drive 


; d'abord sur le drive 1 ; si un code d'erreur est 


4E5E 






UNLK 


A6 


, retourne (A0* 16< >0), on recommence sur le drive 2. 


4E75 






RTS 







. Routine pour supprimer certains menus (voir Pom's numero 17). 

4E56 0000 E.Menu LINK A6*0 

3F2E 0008 MOVE 6(A6).-(SP) 

A336 _DeleteMenu 
A937 _DrawrienuBar 
4E5E UNLK A6 

4E75 RTS 



Catalogue our Imprlmante 



Pour obtenir toutes les Informations sur les 
flcniers (typo. croBtour. Index, position du 
premier bloc pour la port he HKzmndes". position 
o\j premier bloc pour la partle "Flessource". 
longjou-s logic*_*os et pl-yslpLJOs, flcriief~» 

proteges ou non, Icon©* mvlsioies, etc... J sur 

papier ou a leer an 

Routines "BLCMD* et "DE^VL" 

Simllalres aux routines "BLOAO" et "BSAVE* de 
IVNpple / / . el les eutorlsent des souis^egardes et 
chargements rapides de fierier s binalres 
(dmreos gr-iRprJoi ie«*. tnhlmux rto \spt* I «nl«. 
tobies de references, etc... 1 
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Le Basic Microsoft offrc la possibility 
de ledtSfinii la forme du curseur en 
pla^ant des codes dans un tableau 
de variables. Ceci est tres intdressant 
mais, s'il on se penche quelques mi- 
nutes sur le probleme. on s'apercoit 
quil est possible d'utiliser cinq cur 
seurs piedSfinb. Lei> quatre premiers 
font partie du dossier systerne alors 
que le dernier est issu du Basic Mi- 
crosoft. 

Une tres courte routine est utilisee 
pour le rhargement et I'affichage du 



Les curseurs du systerne 

Julien Thomas 

curseur desire. On utilise deux Le passage de l identificateur (nu- 

Traps"; 1g premier charge en me- mero du curseur) se fait comme 

moire la definition du curseur (cur- d'habitude par la pile, avec CALL 

seur, masque et position du "point ROUTINE!(ID%) (ou ROUTINE! 

chaud") et retourne I'adresse ou se ID% avec la seconde version du 

Irouve le pointeur sur la structure en Basic Microsoft), 
question; la seconde est I'equivalent 
de Instruction CALL SETCl 



10 PROGRAMME DE DEMONSTRATION 
20 DEFINT A-Z CLS 

30 ' Data pour code objet 

40 DATA &H4E56,0,&h42A7,&h3F2E,8 

50 DATA &hA9B9,&h2057,&h2E90 

60 DATA &HA85 1 ,&H4E5E,&H4E75 

70 FOR N=0 TO 10; RE AD C(N):NEXT 

80 A!-VARPTR(C(0)) 

90 INPUT "Numero du curseur ? ".N 

100 CALL SH0WCUR50R 

110 CALL A!(N) 60T0 90 



tmfo 

(MMMA 


; Recuperation des curseurs predefinis 


XftfOO 


.Trap _6etCursor 


*A9B9 


0000 
0000 


Trap _SetCursor 


$A951 


0000 4E56 0004 


1 LINK 


A6 *0 


0004 42A7 


cuu 


-(SP) 


0006 3F2E 000£ 


J MOVE 


6(A6),-(SP) 


000A AQBQ 


—GetCursor 




000C 2057 


MOVE A 1 


(SP).A0 


000E 2E90 


MOVE 1 


(A0).(SP) 


0010 A851 


-SetCursor 




0012 4E5E 


UNLK 


A6 


0014 4E75 


RTS 





Curseur 



masque 



rn-fs: ;;'HTnTrnTnr 



■a 



■a" %« 



csj- 
II 
a 



■ . ■ 



CO 

II 
a 




■ ■■■■ ■■■■■ 



■■■■■a 

■■■■■■ 
■■■■■■■■ 



■ ■ ■ - ■■■■■■■■■■ 

'T~m m m ■■■■■■■■■■ 

~ ■ ■ ■■■■■■■■■■ 



isassa 



sssass 



■■■■■■■a 



LO 

in 



HUH 

■■■■■■■■■■■■■■■1 

:::::::::::::::: 


::::::::::::::: 


■■■■■■■■■■■■■■■i 
■■■■■■■■■ ■■■■■■■ 


■■■■■■■■■■■■■■a 
I ■■■■■■■■■■■■■■■ 


■■■*■■■■■■■■■■■■ 






::::::::::::::: 




Disquette IVIac 1Q 

Cette nouvelle disquette comporte le nouveau flcbler ' sy ntime' 
alnsl que la version 1.1 du 'finder', beaucoup plus rapid? et 
compliie que la pricidente. Le programme 'System update' 
aufohse f'imptantation des nouveaux "finder" et "systkme" sur vos 
anciennes disquettes. 'BR DttoQ" est un programme ^application qui 
permet I'affichage temporlst <f6crans crtes avec la sequence de 
touches "Commande-Shift-Majuscute-y. 'font/OA Mover' est une 
version netfement amtliorte de "font Mover". De plus, il permet de 
manipuler les accessoires de bureau, ihfln, outre les programmes 
publlis dans ce numtro, vous trouverez les polices de caractires de 
I'imphmante Laser Writer 'limes', 'Courier', 'Symbol' et 
'Helvetica' (utilisables avec I'imprimante ImageWriter). 
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pontes Micro-Journal 




Herve Thiriez 



Logiciels de troisieme generation 

La premiere generation des logiciels sur Mac etoit 
concue pom 128K dc memoire. 

La seconde generation, nee avec le Finder l.lg, 
ctaii dcslincc aux utilisateurs dc Macs 512K, iu£nic 
si ce Finder ronctionnait en 128K. Certains pro- 
grammes de cctte g6neration exigent de 
memoire centrale, d'aulres, a Tinstar dc Think Tank, 
out une version 512K plus puissanie. 

La troisieme generation vient d'arriver, avec le 
Finder 4.1, la version 4.5 dc MacWrite cl la 
version 1.5 de MacPaint. Le nouveau systeme, 
oulrc le Finder 4.1 dont nous parlon* plus bas, 
ajoute 1'accessoire Selection d'impriroantc, met k 

jour le fichier System el remplace le fichier 

ImageWriler par une nouvellc version autorisanl 
limpression a 50% de reduction el fonctionnant sur 
les ImagcWritcr 12" et 15". 

Le nouveau Finder 

Qu apporte de plus le nouveau Finder ? En resume : 

• la possibilite; d'imprimer le catalogue de la dis- 
quette; 

• laffichage d*un cadenas pour les fichiers verrouil- 
16s. avcc les catalogues sous forme de lexte; 

• la possibilite de copier des fichiers sur un disque 

ouveil, 

• la possibilite de mettre un disque dans la poubclle 

(Ejection el disparition dc l'ic6ne du disque); 

• unc option du menu Fichier pour la creation d'un 
nouveau dossier; 

• un Mini-Finder, dans le menu Special, permet 
de se dcplacer rapidemenl entre des programmes ct 
documents d'usagc frequent. 

Et nous n'avons pas tout Hit .. Nous vous laissons 
decouvrir le restc, y compris lc gain en vitcssc. 



Pom's recrute encore ! 

Pour faire face a sa croissance continue, 
Pom's recherche un collaboratcur ou une 
collaboralrice a temps pleJn. 



Connaissanc© parfaete de- I'assembleur, de 
I'Apple //, du DOS et du ProDOS requise. II 
faul aimer le travail en 6quipe, e^© capable 
dc s'exprimer clairement et avoir un niveau 
acceptable en orthographe. 



Gestion de fichiers sur Mac 

Sans le moiudic suuci d'cxhaustiviie, nous 
laisons ici le point sur les logiciels permetiant 
de faire de la geslion de Fichiers sur Macintosh, 
mcmc s'ils posscdeni parfois des possibilites 
suppiementaires. Lire la rubnque des Micro- 
Informations pour les informations generale* 
en matiere de logiciels sur Apple. 

Helix est un programme de base de donnees 
relaiionnelle fonctionnant exclusivement avec 
512K. Nous avons 6tc impressionnes par ses 

possibility, qui se payent quand meme par un 

certain effort d'apprentissage. Ce programme 
puissant sera evoquc' plus cn detail dans un 
Pom's ultericur. II est vendu par Softsel - Til 
(1) 768.59.50 au prix de 4.763 FF HT. 

CX Mac Base, avec sa version M20, rfisoud 
la grande majoritfi des bugs encore presents 
dans la version M10. Cofltacter votre revendeur 
ou la soci^uS Control© X pour la version M20. 

De son c6te, ABC Base est maintenanl lui 
au«i dt*pY>mhle dans sa nouvelle version, ou 
les bugs anttrieurs sont aussi cn grande parlic 
r£solus. De plus, la documentation est sensi- 
blement amelioTfce. 

Enfin, depuis le temps qu'on lattcndail, File 
est maintenanl vendu par Microsoft. Nous 
devons souligncr sa grande facilite d'usage, sa 
rapid iic de traiteuienl, son absence apparent? 
de bugs, et son parfait fonctionnement en 
128K. En echange de quod, ses fonctionnalites 
sont certcs moins riches que celles des 
precedents : ainsi, les possibilites de calcul 
sont tout-a-fait sommaires, et il n'est pas 
question de realiser des traitcments reliant entrc 
cux deux fichiers ou plus. Ou peui icaliicr des 
fiches prfisentant jotiment, mais au prix de 
certaines manipulations. 

Nous attentions done avec une grande impa- 
tience le futur inuSgr6 de Microsoft qui a tout de 
meme reussi la performance notable en micro- 
infoiinatique Ue placer la plupart de ses produiis 
dans la serie des bestsellers. 

En cc qui conccrnc Jirr, a la date de redaction 
de cet article, on ne sail pas encore s'il ne 
faudra pas avoir, outre 512K. un disque far pour 
pouvoir Tutiliser dans des condiuons pour lc 
moins acceptable!. 



Disquette N'18 
du cahier Macintosh 

La disqueitc Macintosh de ce numero de 
Pom's comportc tous les programmes parus 
daus lc cahier Mac, mais elle vous reserve en 
outre des cadeaux surprise : 

• lc System Update, qui Uausforme vos 
vieux fichiers Systeme cn rcmplacant le 
Finder l.lg par la version 4.1 et Vancien 
fichier ImageWriler par le nouveau. 

• le Font/DA Mover, pour deplacer des 
polices (fonts) ou des accessoires de bureau 
d'une disquettc a une autre. Les polices 
peuvent proveuir d'uu systeme ou dun fichier 
quelconque. Un excellent programme, valori- 
se par le nomhre croissant d'accessoires de 
bureau qui traincnt partoul aujourdrmi. 

• le programme Demo, du a Bruno Rives, 
qui vous permet de monter unc seance de 
presentation avec plusieurs: ecrans. 

• les quatrc polices dc caracteies utilises a ce 
jour par la LaserWriter. 

Pour transformer toutes vos diaqucttcs 
comportant I'ancien systeme, il suffil de 
cliquer sur 1'icdne System Update. 




System Update Font /DA Mover 

La mis© a jour du systeme d'unc disquettc nc 
modifie en rien ses caract£risiiques 
spexifiques lelles que lc clavier ou les 
polices qui y sont integrees. Aucun risque 
done ... 

Le seul effet negatif que nous ayons pu 

conslaler est que les dossiers realises avcc 
I'ancien systeme et relus par le nouveau 
perdaient leur nom. Par contre. leur structure 

de dossier et leur contenu restenl inchanges, 
que lc systeme ayant servi a Jcs definir soil 
irancais ou americain. 

Les nouvelles versions dc MacWrite cl 
MacPaint se trouveront, pour leur part, sur la 
disquette Macintosh du N'19 de Pom's. Nous 
profiterons certainement de l'occasion pour 
joindre encore a ceite disquette d'aulres 
nouveautes relevant du domaine public, en 
plus des programmes publics dans Pom's. 



Page realist avec Ready-Set-Go, programme diffuse par BIP, et imprimeo cur LaserWriter avec les polices Helvetica et Times. 
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Aldo Reset a la parole 



Poms 



Beaucoup a 616 dit sur les "pirateurs", et Pom's a trouvd juste de leur donner la parole, afin qu'ils aient la possibility de dire ce 
qu'ils pen sent sans que leurs propos ne soient abusivement interprets ou meme, comme cela leur est dejk arrive avec une 
revue specialised dans le choc des cliches, purement invents. Nous avons done rencontrfi Marc, plus connu sous ie nom de 
Aldo Reset, membre fondateur du Clean Crack Band. Quel est le possesseur d'un Apple II Plus, Jle ou lie qui n'a eu entre les 
mams des disquettes signers du Clean Crack Band, ou dc ses membres les plus eminents : Aldo Reset, Tony NMI. Laurent 
Rueil ou Johnny Disquette ? 



La premiere impression que donne Marc, 
appclons-le plutot Aldo pour respecter son nom 

de guerre, c'est sa jeunesse. II compte 20 

prinlemps et, quand on sail qu'il ceuvre sur son 
Apple 13 * depuis plusicurs annces deja, on voit 
qu'il a demarre tot. 

NDLR : Pom's n'a pas pu retranscrire I'interview 
in extenso, la discussion ayanl duri plus dune 
hcure el demie. Nous avons done extratt des 
questions el riponses lypiques, avec un grand 
souci de nepus dinuluier les propos ichangis. 

P - Le piratage qui a deja eu lieu vous pose-t.il un 
probleme, legalement ? 

A - Je ne vois pas tres bien qui m'en voudraii ... 

P - Dans la xnesure ou vous avci. deja signe" un 
certain nombre de disquettes Apple II, les 6diteurs 
ne peuvenl-ils vous ennuyer ? 

A - Les fidiieurs americains ? A mon avis, ils 
feraient d£ja quelque chose contre ceux qui 

existent aux Ettts-Unis, avant do venir nous 
cmbctcr. Les dd items fianyais, sans vouloir eue 
mechant pour eux, disons qu'ils n'ont pas le 
meme niveau. 

P - Comment signez-vous les disquettes que vous 

"d£plombcz" ? 

A - Avant, je signals Aldo Reset ou CCB; 

maintcnant, je ne fais plus grand chose. CCB est 

un groupe; on a toujours 6l6 plusieurs dedans. On 
a commcned, on eUit au d6part vraiiu-eut deux, 
Tony NMI et puis mot. Lnsuite, Laurent Rueil 
qu'on a rencontre. Au fur et a me*ure, on meitait 
tous les copains dedans. £a fait toujours piaisir 
de faire panic de quelque chose. 

Alnrs. on s'est relrouve, on a bien i\i une 
quinzainc, pcndanl un moment. El puis, lannce 
derniere, pa n'allait plus. Je n'arrivais plus a 
savoir qui etait du CCB; j'entendais parler d'untel 
qui etait du CCB ct que jc nc connaissais meme 
pas. Alors on a fait un petit nettoyage. On s'est 
retrouv6 a cinq. C'est a pcu pres l'epoque ou on a 
laisse tombcr, de toute facon- 



P- Vous nc dtfplombez plus ? 

A - Non. pas vraiment. De temps en temps, 

parce que d'abord ca nous plait. C'csl surtout ca. 

P - Est-ce que cela a e-t£ une industrie a un 

moment donni ? 

A - Meltons que je faisais cela tous les jours. 
Pendant une bonne partie de la jour nee et de la 
nuit Cinq par jour pcndanl un moment. 

P - Cela a-t-il tfte une activity commerciale ? 

A - On n'a jamais gagn6 d "argent. On n'esi 
jamais pass* au stade industriel, e'est-a-dire 
dfiplomber des trues express. C'Slait pour 1'amour 
dc 1'art, ct surtout pour avoir les programmes. 
S'il fallait acheter tous les trues qui sortent, moi 
je pourrais Uavailler encore pendant dix ans, je 
ne pourrais pas les avoir. Qa coutc quand mcmc 

cher, ei puis cetaii un moyen facile et agreable. 
On n'allaii pas se gfener. 

P - Y a-t-il d'autrcs groupes que le Clean Ciack 
Band ? 

A II y en a plein. £a a rccllcmcnt commence 
1'annee derniere. II y a plein de monde. 

Maintenant. cela ne vaut plus tenement la 

peine. A la Hroite, 9a oe me derangerail pae de 

continucr, mais ca prend du temps, et ca ue 
rapporte pas. 

P Comment deplombe-l-on ? 

A - II y a plusieurs meihodes pour deplomber. II 
y a la method* sale, qui est malheureusemcnl 
trop repandue, avec les cartes d inierTuption, les 
choses comme cela. Non seulement. ca tie 
marche pas toujours. mais c'esl rien, c'est meme 
pas dr6le. Moi, j'ai unc carte comme ca; jc m'en 

sers, mais pas pour dfiplomber. Je men sers 
quand je suis en train de jouer, quand je veux 
absolumenl voir la fin du jeu; des que je me fais 
tuer, je revjens au siade precedent avec ce que 
j'ai sauv6 de la carte. 



Dans la nieUiode prupre, il Taut suivre tout, 
depuis le dfibut, a la main, sans rien du tout 
en hard, juste a la nue On suit pas a pas. Si 
on veut faire quelque chose dc bien. il faut 
aller jusqu'au bout, suivre et bien comprendre 
ce qui se passe. Mais quand en veut ensuite 

faire (de la disquelte deplombee) quelque 
chose de standard, il faut aussi faire 
proprement. 

P - Est-cc que, pour un systemc comme 
ProLock, vous avez un mode de deplombage 
systematique. ou est-ce que ce travail est 
personnalis^ 7 

A - ProLock, c'est meme pas la peine de 

s'tfnerver avec ca C'est tellement ridicule que 
(rircs). 

P - II parait que certains pirates dficlarent 
pouvoir deplomber n'importe quel logicicl cn 

une demi-heure, monire en main. Est-ce vrai ? 

A - C'est des betises. Une demi-heure, ce 
nest pas standard. II y a 90% des machiiu 

qui sons faisables en cinq minutes. Faul le 

dire, Maintenant, dans les 10% restant. il y 
en a qui prenncnt deux hcurcs, d'autrcs plus. 
Omnis 3, j'ai passe une scmaine dessus, a 

bosser null ct jour; je ne dis pas ga pour fitre 

vache avec Ka, mais e'etait bien. C'est pas 
que la protection eUil une des mcilleures, 
mais clle euil hors du commun, differente de 
tout ce qui se faisjiiL Sun r>og. c'est encore 
un bon cxcmplc; unc semaine aussi. Une 
semaine, ca a a6 le maximum. Pas du maun 
au soir. mais en y pensant lout le temps, la 

nuit aussi. Sun Dog el Omnis 3, cetait ires 
dur, mais on pouvait faire plus dur encore; ils 
auraient pu rajouter des trues. lis se sont dit 
"C'est pas la peine"; a mon avis, ils avaienl 
raison. 

P - Peut-on faire un programme qu'on ne 
puisse pas deplomber ? 

A - Pas possible ... on passera le temps qu'il 
faudra. mais on 1'aura. 
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P - Vous travaillcz aussi sur !e Macintosh ? 

A - Pas vraimcnt. je commence un pcu. Lc 
68000, cest pas mal, mais le Macintosh, il 
irainc un pcu, jc uouvc. Jc m'alteudais a 
mieux. Tani qu'il n'y aura pas une vitesse plus 
•rapide ... A 10 MHz. on peut commcncer a 
travaillcr. Ccci dit, jc commcnccrais a 
uavailler dessus si on men donnait un. Je ne 
pcux pas encore en acheter un mainienant. 

P - Les protections scmblcm mciUcum sur le 
Macintosh. 

A - C'cst normal. D'abord, il y a 128K ou 
512K au lieu de 64K; fouiller dans 64K, a la 
limite. e'est faisable. Dans 128 ou 512. c'esi 
plus dur. En plus, dans le 68000, il y a des 
registres a ne pas savoir oil on en est. Moi, 

j'ai encore rien deplombe sur Mac; un true. 

quoi, mais c'etail vraiment ridicule. 

Autre plraleur - Les grands specialistes du 
piratage sur Macintosh, e'est du cAti du soleil 
On parlc dc Nice ct Marseille. On n'est mtmc 
pas sur des villes. La raison fondamentale de 
ce piratage-la. e'est le ch6mage. 

P - Les protections cVACI ne som pas mal, 
n'est-ce pas ? 

A - Laurent Ribardicrc (crdatcur d'ABC Base, 
diffuse* par AO), e'est quelqu'un qui nest pas 
ndgligeablc. 

P - Que faisiei-vous au dfibul du CCB 7 

A - Moi, j'etais au lyr.ee. I.aurenl venait 
d'avoir cu son bac; Tony dtait aussi au lycec. 
On faisait 9a pour s'amuser. Moi, je suis 
toujours 6tudiant, je fais des etudes en 
biologic Les autres, il y en a qui travaitlcnt, a 
ecrire des logiciels pour des boltcs connues. 

Autre plraleur - Aldo et un certain nombre 
d'autrcs piratcurs du CCB travaillent 

maintenanl, sous des formes varices, avec la 

aocietc IRD, qui part du principe que les Sons 
piraieurs sont de bons programmeurs. 

A - A partir du moment ou on deplombe bien. 

on sail programmer bien. Si on deplombe mal, 
on ne sait pas programmer. 

II y a ceux qui savent suivre un programme, 
rcgarder une routine en langagc machine, 
comprendrc ce quelle Fait, programmer ce qu'il 
faut pour qu'elle fasse la meme chose, mais en 
DOS 3.3 normal. 

II y a les autres qui mettenl quinze fois plus de 
temps a com prendre, qui se trompent quinze 
fois dc suite ct font des uucs qui out I'aii 
ddgueulasses a leeran. Des bouts de machins 
qui traineni dans tous les coins 



Nous, quand on signc, on essayc dc faire t.a 
discretement, pour rien enlever a la facon dont 
les gens auraient voulu que ce soil presente 
originellemenl. Moi, quand je vois une page 
qui arrive, et od on nc voil plus cc que e'eal, 

parce qu'un abruti a mis son nom en plein 
milieu et en gros. et qu'en plus les eouleurs 
bavent, ca mc plait pas, et jc suis sur que cc 
type-IA ne sail pas programmer. C'esi unc 
in suite aux gens qui onl fait le programme au 
depart. 

P - En fait, vous voulez dire que vous avez un 
certain respect pour les auieurs de programmes. 

A - Cela parail bizarre, mats c'esi vrat On s'est 
appele' Clean Crack Band parce qu'on essaye, a 
chaquc fois, dc faire du beau travail. Tous Ics 
programmes qu'on a deplombes ci qui portent 

noire signautre quelque pari, c'esi bien fail, ga 

marc he a la meme vitesse ou plus rapidement 

que 1'original, 5a conserve l'esprit du logiciel. 
Cesl bien fail, quoi. Cest discrei, et bien. 

P - Vous ctes en quelque sorte des esthetes. 

A - On peut dire ca. On peut. on pcul ... £a fait 
un peu prelenlieux, mais (rires). Mais c'esi 
vrai, je vois ca comme ca. C'esi pour cela que 
ca me met hors de moi quand je vois des gens 

qui ne le font pas. 

La majorat des gens qui ecnvent des 
protections pour les logiciels font des trues 
bien; je ne parlc pas de ceux ou il faut cinq 
minutes pour deplomber, quoique ce n'est pas 
une raison pour les massacrer. Prenons par 
exemple Bill Bashan, qui a fait Dogfight et la 
protection dc tous les 1DS1 (Point 5, Trick 
Shot), e'est un type que j admire vraiment. 

Quand on regarde une page prise n'importe oil 

dans un listing qu'il a ecrit, on reconnait tout 

de suite que e'est lui qui l a fan. 11 a unc espece 
de style. 

P - En general, e'est la meme pasonne qui cicc 

les logiciels ct realise la protection ? 

Autre plraleur - Non. mais eclui qui fail la 
proteciion intercaic son code dans celui de 
l'auteur. 

P - Mais, alors, comment reconnait-on le code 
original du code de protection ? 

A - C'cst 9a qui le UahiL Pour deplonibei un 
true, souvent, je commence comme 
normalemeul, puis ensuite je regarde dans la 
memo ire !<*- zones ou je pense qu'il pourrait y 
avoir quelque chose. Je regarde au hasard. Et 
sou vent, je tombe sur un endroit ou je me dis 
"Tiens, ca, ce n'est pas ecrit comme le resle"; 
U y a alois de fortes chances pour que la 
protection, ce soil ce iruc-la. 



Y'a des gens qui utiliscnt plus certains regisues que 
d'auires. Ce sont des trues comme ca. C'esi subui, el 
c'esi bien. 

Aulre pirateur - A ce nivcau-la, quelqu'un comme 
Aldo - surtoul lui, parce que e'est un des meilleurs 
dans le genre - reconnait le style d'un auteur de 
logiciel comme on reconnait eclui d'un ecrivain. 
Signe distinctit trfis caracierisuque a mon avis, Aldo 
n'utilise pratiquement pas d'assemhleur, il travail le 
dircctcmcnl avee Ics codes mncmoniqucs, cn hcxa 

directemcni. 

P - Savez-vous ainsi identifier plusieurs "protecieurs" 
amcricains ? 

A - J'en connais plusieurs. II y a toujours dans un 
coin lc nom dc eclui qui a fait la protection; on nc 
peut pas y echapper. C'esi pas forcfiment leur nom en 

clair: il y en a qui meiieni leurs nombres favoris. des 

trues comme ca. On les retrouve. Quand je vois dans 

Dogfight, a un moment datia le programme, il y a 
deux/trois machins, ct puis ensuite, je retrouve les 

mimes codes dans une protection, et plus lard je 
retrouve que e'est lc mcmc type (a cause dc ccttc 
signature) dans d'autres logiciels. II suffil de faire 
attention aux bons trues. 

Moi, j'ai arreie de deplomber aussi parce qu'une de 
mes raisons, e'etait de recuperer tous les softs qui 
sorlaient. pour felre au couranf. Mainienant. j'arrive a 
tout avoir par Ics amis, mal deplombe, on o'y peut 

rien, mais je les ai quand meme. C'esi quand mCme 
triste de voir que c'esi mal fail ... C'esi dommage. 

P - Quel genre de betises a-t-on dit sur vous ? 

Autre pirateur - D'apres Paris-Malch, Aldo aurait 
travailld sur le fichicr d'une banquc. Or, il nc fait pas 

du lout de communication, il a horreur de cela. Cest 
Tony qui esi "brancW". 

A - Jamais piratt le Credit Agricole par Miniiel. 
Faut quand merae pas exagerer. J'ai fail d'auires 
choses. Ceci dit, les auieurs de logiciels, j'en 
conuais peu qui ise piratenl pas. Si uo auteur veut 

faire un bon logiciel. 11 faul qu'il voic cc que font 

tous les concurrents. 

P - Une morale a tout cela ? 

A Cest paa forcement une mauvaise chose que les 
logiciels se diffusem par piratage. Que Ics 
programmes circulenl permet d'amener plus de gens a 
un certain niveau, de voir ce quest un bon 
programme, $a aide a mon avis la micro-informatiquc 
et rinformatique en general; ct ca, je Irouve que e'est 
une bonne chose. Les avis sont partages la-dessus. 
Enfin comme les programmes circulent de toute facon 
deplomWs, il vaui mieux qu'ils circulenl deplombes 
de facon propre que sale. Mal deplombe, cela peut 
donner ('impression que le programme marc he mal, 
cela fail du ton. C'cst pour cela que les gens qui 
dcplombent pas bien, ils font du mal doublemenL Le 
bon deplombage fait progresser I'informatique. 



... MacPublisher, Page Maker (non encore disponible) et, pourquoi pas, tout simplemem le genial Mac Draw, encore trop meconnu 



48 



Pom's n° 18 



Hard copy de la page HGR etendue 

Marc Debuigne 



Get article s'adresse uniquement aux 
proprietaires d'un Apple //e, equipe 
d'une carte 80 colonnes etendue. ou 
d'un Apple lie (la carte Chat Mauve 
est integree en standard). Vous savez 
certainernent que ces cartes addition- 
nelles ameliorent non seulement Faf- 
fichage en mode TEXT de 1'Apple, 
mais aussi ses capacites graphiques 
(jusqu'a 560 x 192 points), en per- 
mettant F utilisation des pages haute 
resolution de 16 Ko. d'ou une meil- 
leure qualite des graphismes obtenus. 
II etait jusqu'a present possible de 
creer et de sauvegarder des graphis- 
mes 16 Ko a l'aide d'utilitaires tres 
puissants tels que Purplesoft, ou a 
partir du Basic (voir suite de I' article), 
mais pas d'en obtenir une reproduc- 
tion sur papier. Le programme en 
langage machine propose ici. associe 
au programme Basic COPIE comble 
cette IdLune, la qualite de la repro- 
duction obtenue n'etant toutefois op- 
timale que lors de la recopie d'une 
image 560 x 192 en noli et blanc. 

Commutateurs memoirc 
et graphismes 16 Ko 

Les modes graphiques 16 Ko page 1 
des cartes 80 colonnes etendues utili- 
sent les 8 Ko de la page graphique 

haute resolution 1 et 8 Ko de la me- 
moire auxiliaire situes aux mernes 
adresses. Leur utilisation suppose 
done lecture et ecriture dans les 64 
Ko additionnels 

L'ecriture et la lecture de donnees 
dans la memoire auxiliaire peut s'ef- 
fectuer de deux manieres : soit en 
utilisant la routine AUXMOVE (voir 
Manuel de reference He ou de la 
carte 80 colonnes). soit en jonglant 
avec les commutateurs memoire 
80STORE, PAGE2 etc... 
Cest cette deuxieme rnethode 
qu' utilise le programme de hard 
copie. Afin de permettre son emploi 
a partir d'un programme Basic, 
seules les deux zones memoire cor- 
respondent aux pages TEXT1 et 
HGR1 sont commutees. 

Ceux qui ont deja essaye d'utiliser 
les 64 Ko de la memoire auxiliaire 
sans passer par AUXMOVE se sont 
certainernent rendu compte de la 
complexity du problems, et ont pu 
constater que la sequence CTRL- 
Pommc Ouverte RESET est parfois 
Incapable de remettre de 1'ordre dans 
tous les pointeurs. En Basic, cette 
mdmoire additionnelle n'est absolu- 
ment pas uttllsable directement et ne 
peut ]'2tre pleinement qu'en assem- 
bleur (FApplesoft n'est malheureuse- 



ment pas un Basic 128 Ko). Les 
commutations de pages memoire ef- 
fectives pour utiliser le mode HGR 
16 Ko sont les seules exploitables 
sans grand danger en Basic. II suffit 
alors de proteger la page HGK1 par 
un LOMEM ou un HIMEM approprie 
et de veiller a ce qu'aucun pointeur 
ne soit perdu lors d'une operation 
d'Entree / Sortie. 

Attention: certaines interfaces impri 
mante. telles que la SSC, utillsent les 
"trous" de la page TEXT1 pour y 
loger des pointeurs. II faut done veil- 
ler. lors de renvoi d'un caractere a 
Fimprimante par un PRINT ou un 
JSR COUT. a cc que la page TEXT1 
de la mGmoire principale soit bien 
accessible (Fauteur de ces quelques 
lignes en a fait la triste experience). 

Precisions sur 
les cartes 64 Ko 

Si vous avez essaye de comprendre 
Feffet des differents commutateurs 
memoire vous avez pu constater que 
les explications foumies par les ma- 
nuels ne sont pas d'un abord facile; 
les quelques lignes qui suivent vous 
permettront certainernent d*y voir 
plus clair : 

• Le commutateur memoire 
80STORE a priorite sur RAMWRT 
et RAMKD. ce qui rend parfois 
AUXMOVE inutilisable. 

• Les commutateurs RAMWRT et 
RAMRD specifient la Bank urilisee 
en lecture ou en ecriture. 

Action des commutateurs 

1) Si ALTZP est OFF . 

Les commutations s effectuent obli- 
gatoirement entre les pages 2 et $BF 
incluses, deux cas de figure sont 
alors possibles : 

- Si 80STORE est OFF, RAMWRT 
et RAMRD commutent entierernent 
de la page 2 a la page $BF. 

- Si 80STORE est ON, il est priori 
taire par rapport a RAMWRT et 
RAMRD qui ne commutent plus, 
contrairement aux pages 2 a 4, 8 a 
$20 et $40 a $BF. Les pages TEXT1 
et HGR1 commutent alors indepen- 
damment des autres si HIRES est 
ON. PAGE2 effectue leur commuta- 
tion. 

2) Si ALTZP est ON : 

Les commutations affectent la carte 
langage. la page et la page 1. Elles 
sont effectuees avec RAMWRT et 
RAMRD, les autres commutateurs 
devant £rre positionnes exactempnt 
comme Findiquent les manuels. 



Attention : 

- Pour pouvoir encore afficher du 
texte a Fecran il est necessaire que 
TCXT1 ne soit pas commute. 

- Apres un appel d'une routine du 
moniteur, il faut faire tres attention a 

la nouvelle position des commuta- 
teurs. 

- S'il est necessaire de commuter la 
memoire auxiliaire aussi bien en lec- 
ture qu'en griture, il sernble que 
seules les sequences RAMWRT ON 
et RAMRD ON, puis RAMRD OFF et 
RAMWRT OFF extent les "planta- 
ges". 

- Les seules commutations possibles 
sont celles indiquees dans les ma- 
nuels, il faut alors s 1 assurer du bon 
positionnement de tous les commuta- 
teurs afin d'eviter un "plantage" 

Apres certains "plantages", la 
seule maniere de tout remettre en 

ordre est d'eteindre et de rallumer 
FU.C. 

Dernieies precisions . dans cer- 
tains cas la routine AUXMOVE ne 
peut etre utilisee. II existe deux 
commutateurs memoire assez peu 
connus SLOTCXROM et 
SLOTC3ROM qui permettent d'acce- 
der aux ROM specifiques du //e-//c, 
ce qui oblige a effectuer une ecriture 
en $C00A (49162) avant toute utili- 
sation de AUXMOVE. Etant donne 
que AUXMOVE n'utilise que 
RAMRD et RAMWRT. il faut que 
80STORE soil OFF pour qu'elle 
puisse acc&Jer a toute la memoire. 

Visualisation 
de la page 1 

Si vous avez un //«, la haute resolu- 
tion etendue ne peut £tre visualisee 
qu'avec des cartes meres revision B 
ou posterieures. Une seconde condi- 
tion doit etre remplie ; les deux Jum- 
pers des cartes d'origine Apple doi- 
vent Stre relies (ce probleme n'existe 
pas avec la carle Chat Mauve). Les 
commutations a effectuer sont : 

• AN3 OFF : $C05E - 49246 (lec- 
ture) 

• GR ON : $C050 49232 (lecture) 

• HIRES ON : $C057 - 49239 (lec- 
ture) 

• FULL ON (ou MIXED) : $C052 - 
49234 (lecture) 

• 80COL ON: $C0OD - 49165 
(ecriture) 

Pour utiliser a nouveau la haute re- 
solution normale il suffit que le 
commutateur AN3 soit ON (lire en 
$C05F - 49247). 
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il existe aussi une page 2 en haute 
resolution 16 Ko. Pour la visualiser il 
faut figalement que 805TORE soit 
OFF. Cette deuxierne page est diffici- 
lement utilisable, a moins d'ecrire 
d'autres routines d'affichage en 80 
colonnes, car le firmware 80 colorv 
nes active toujours 80STORE. 

Creation et sauvegarde 

Pour creer un graphisme haute reso- 
lution 16 Ko en Basic, sans risquer 
un "plantage", il faut activer les 
commutateurs sukahts afin de ne 
commuter que les pages TEXT1 et 
HGR1 : 

• 80STORE ON; $C0Q1 - 49153 
(ecriture : modifie Taction de 
PAGE2) 

• HIRES ON . $C057 - 49239 (lec- 
ture) 

• RAMWRT OFF: $C004 - 49156 
(ecriture) 

• RAMRD OFF: $C002 - 49154 
(ecriture) 

• PAGE2 ON ; $C055 - 49237 
(ecriture : commute la memoire 
auxiliaire) ou PAGE2 OFF ; 
$C054 - 49236 (ecriture : 
commute la memoire principale) 

Lorsque 80STORE est OFF, PAGF2 
commute I'affichage entre les pages 
TEXT et HGR 1 ou 2. Lorsque 
80STORE est ON, il permet de 
commuter soit la memoire principale, 
soit la memoire auxiliaire (pages 
TEXT1 et HGR1). Pour afficher un 
point en Basic il faut determiner s'il 

se trouve en memoire principale ou 
auxiliaire. effectuer la commutation 
adequate, modifier son abscisse en 



consequence et utiliser le HPLOT de 
1' Applesoft (structure des pages haute 
resolution : voir manuels). Pour sau* 
vegarder et reutiliser l 1 image obte- 
nue, la methode la plus simple est 
d' utiliser les commandes BSAVE et 
BLOAD du DOS 3.3. Une image est 
enregistree en deux parries . la pre- 
miere correspondant au contenu de 
la page HGR1 de la memoire princi- 
pale, et la seconde a celui de la page 
HGR1 de la memoire auxiliaire. Pour 
comprendre parfaitement les opera- 
tions a effectuer, il est bon d'analyser 
le proqramme CREATION CERCLE 
HAUT qui cree une serie de cercles 
concentriques. 

Pour qu'une image puisse etre char- 
gee par le programme COP1F asso- 
cic a l'utilitaire de Hard Copie, il faut 
que les fichlers assoctes se terminent 
par : " 1" (memoire principale). u 2" 
(memoire auxiliaire). Par exemple : 
CERCLE HAUT 1 et CERCLE 
HAUT 2. 

Conseils ; pour eviter les "planta- 
ges", utiliser HGR pour ef facer la 
memoire principale et CALL 62450 
pour effacer la memoire auxiliaire. 
En outre, il faut proteger la I IGR1 
par un H1MEM ou un LOMEM. 

Programme de Hard 
Copie 

Le programme Basic COPIE sert 
seulement a charger une image en 
memoire, a la visualiser, et a appeler 

la routine en assembleur apr^s avoir 
positionne certains pointeurs. Cette 
routine tourne sur les configurations 



suivantes : Apple He ou Ue et impri 
mante Image Writer. Les listings sont 
suffisamment commentes pour per- 
mettre une adaptation rapide a d'au 
tres configurations. II a les memes 
fonctionnalites qu'un programme de 
Hard Copie classique : impression de 
l'image telle quelle apparait a lecran 
ou en inverse, taille normale 560 x 
192 points ou double 1120 x 384 
points. 

La routine est implantee a Fadresse 
$4000 (16384), mais clle est parfai- 
tement relogeable (elle utilise la page 
3). 

Une precision important^ pour les 
possesseurs de //c : avant d'envoyer 
des Informations a rimprimante en 
langage machine par un JSR COUT, 
il est necessaire d'effectuer un SEI. 

La taille de I'lmage imprimee doit 
etre specifiee via t'adresse $300. Seul 
Fetal du 8eme bit est test£. Pour ob- 
tenir une taille normale . POKE 

768, N avec N strictement inferieur a 
128; pour obtenir une taille double. 
N doit etre superieur a 128. 
L'aspect de cette image est specific 
via Tadresse $301 par un POKE 

769, N. Si N est strictement inferieur 
a 127 Fimage est telle qu elle appa- 
rait a 1'ecran et si N est superieur a 
128, Fimage est en "inverse". 

Pour appeler la routine, il suffit, 
apr£s avoir positionne les deux pre- 
cedents pointeurs, de charger une 
image en memoire, de mettre en 
rnarche Fimprimante et d'effectuer 
un CALL 16432 (ou CALL adresse 
de debut d'assemblage + 48). 



Programme COPIE 

10 REM IMPRESS I ON SUR DMP D' UNE IMAGE T 
HGR 

20 D* = CHR* <4>: POKE - 16363,0 

30 PRINT D*i "PRt*3" i REM COMMUTATION 30C 

OL0NNES 
40 PRINT 

50 HI MEM : 8100i REM PROTEGE LA ROUTINE 

ASSEMBLEUR 
60 0% = CHR* <4) 
70 PRINT D*i" BLOAD HARD" 
30 HOME 
90 INVERSE 

100 UTAB Si HTAB 35: PRINT " IMPRESSION" 
110 VTA6 11: HTAB 34: PRINT "D'UNE IMAGE 

120 VTAB 14: HTAB 20: PRINT "HAUTE RE SOL 

UTION E TEN DUE " ; 
130 GET At: REM ATTENTE D'UN CR P0U 

ft CONTINUER 
140 NORMAL : HOME 

150 VTAB 7: HTAB 23: PRINT "1) CHARGER U 

NE IMAGE THGR " 
160 CALL 1002: REM POUR BI EN CONNECTER 

LE DOS 

170 VTAB 10; HTAB 23: PRINT "2> VISUALIS 
ER UNt IMAGE THGR" 



180 VTAB 13: HTAB 28: PRINT n 3) I MP RIMER 

UNE IMAGE THGR" 
190 VTAB 16: HTAB 28: PRINT "4> ARRET DU 
PROGRAMME 

200 UTAB 23: INPUT " "JOT RE REPONSE C 1,2, 

3 0U 4 > ■ jAt 
210 REM VERIFICATION DE LA UALIDITE DE 

LA REPONSE 
220 IF LEN <A*> < > 1 THEN 140 
230 IF ASC <A*> > 52 OR A3C <A*> < 49 

GOTO 140 

240 IF A* ■ " 4 " THEN HOME : END 

250 A = VAL (A*>: ON A GOSUB 270,650,630 

260 GOTO 140 

270 HOME 1 UTAS 22: PRINT " POUR EFFECTUE 

R UN CATALOG REPONpRE *> " 
2S0 UTAB 23: PRINT " POUR RET0URNER A L'E 

CRAN PRECEDENT CR H 
290 V TAB 12: HTAB 10: INPUT "NOM GENERIQ 

UE DE L'IMAGE A CHARGER " ;A* 
300 IF LEN <A*> - THEN RETURN 
310 IF C ASC (A*; <. 65 OR ASC <AS) > 90 

) AND A* < > THEN RETURN 

320 IF A* < > "?" THEN 410 
330 HOME 

340 REM CONNECTE LE DOS 01 1 1 PEUT ETRE D 

ECONNECTE PAR UN PR#3 
350 REM SOUS DOS 3.3 < HAS DE PROeLEME 

AUEC PR0D0S ) 
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360 
370 
330 

390 
400 
410 
•120 

430 
440 
450 
460 
470 

430 
490 

500 
510 

520 
530 
540 

550 
560 
570 
530 
590 
600 
610 

620 

630 

640 
650 
660 
670 
680 
690 
700 

710 

720 

730 

740 

750 

760 
770 

730 
790 

300 

810 



CALL 1002 

PRINT D* ; " CATALOG" 

PRINT : INPUT " PRESSER LA TOUCHE RET 

URN POUR CONTINUER " ;A* 
GOTO 270 

REM AFFI CHAGE DE LA PAGE THGR 
GOSUB 870 

REM CHARGE LA PAGE HGR DE LA MEMOIR 
E PRINCIPALE 



POKE 49153,0: REM 

POKE 49236,0 : REM 

POKE 49156,0: REM 

POKE 49154,0: REM 



80STORE ON 
PAGE2 OFF 

RAMWRT OFF 
RAMRD OFF 



REM POSITIONNE LES COMMUTATEURS ET 

EFFACE LA THGR 
REM UTILISER HGR POUR LA MFMOIRF 
REM PRICIPALE ET CALL 62450 POUR LA 

MEMO I RE AUXILIAIRE 
HOME : HGR : POKE 49234,0: POKF 4923 

7,0; CALL 62450 
POKE 49236,0: REM COMMUTE LA MEMOIR 

E PRINCIPALE 
ONERR GOTO 600 
PRINT 0* j " BLOAD n ;A*;" 1" 
POKE 49237,0: REM COMMUTE LA MEMO IP 

E AUXILIAIRE 
PRINT Ot;" BLOAD " ;A$;" 2" 
POKE 49236,0 
POKE 216,0 
HOME : TEXT 
RETURN 

REM ERREUR D1SQUE 

TEXT : HOME : VTAB 11: HTAB 20: WJE 
RSE 

PRINT "ACCES A CE FICHIER IMPOSSIBLE 

" : NORMAL 

UTAB 23: PRINT "APPUYE2 SUR UNE TOUC 

HE POUR CONTINUER " : GET AS 
POKE 216,0: GOTO 140 
REM VISUALISATION O'UNE IMAGE 
GOSUB 370 

INPUT A*: HOME : TEXT : RETURN 
REM IMPRESSION O'UNE IMAGE 
HOME 

OTAB 7: HTAB 28: PRINT M) TAILLE 56 

0*192, NORMALE" 
VTAB 10: HTAB 23: PRINT "2> TAILLE 5 

60*192, INVERSE" 
VTAB 13i HTAB 28: PRINT "3) TAILLE 1 
120*334, NORMALE " 

VTAB 16: HTAB 28'. PRINT "4) TAILLE 1 

120*384, INVERSE" 
VTAB 19: HTAB 28: PRINT "5; RETOUR A 

IJ MENU GENERAL" 
VTAB 23: INPUT "VOTRE REPONSE CI.. 5) 
" ;A$ 

IF LEN <A*) < > 1 THEN 690 
IF ASC (M) < 49 OR ASC (A*; > 53 

THEN 690 
IF A* = "5" THEN RETURN 
Al = 1: IF A* = "3" OR A* = "4" THEN 
Al = 2 

A2 = 1 : IF A* = "2" OR A* = "4" THEN 
A2 = 2 

REM EM 768 ET 769 SEULE LA UAL EUR 
U 7EME BIT EST TESTEE 



820 
830 

840 

850 
860 
870 
330 
390 

90 

91 
920 
930 
940 



REM ( VALEUR > OU < A 1 28 > 
POKE 768,0: IF Al - 2 THEN POKE 763 
,200 

POKE 769,00: IF A2 = 2 THEN POKE 76 

9,200 
CALL 16432 
RETURN 

REM AFFICHAGE OE LA PAGE THGR 
POKE 49160 ,0 : REM 

A = PEEK < 49246) • 
A - PEEK (49232) : 
A = PEEK (49239) 



ALTZP OFF 
REM AN 3 OFF 
REM GR ON 
REM HIRES ON 



A = PEEK (49234): REM HIRES ENTIERE 
POKE 49165,0: REM 80 COL ON 
RETURN 



Programme CREATION CERCLE HAUT 



10 REM TRACE DE 3 CERCLE EN HAUTE RESOL 
UTION 

20 D4 = CHR* (4): PRINT D*;"PRtt3" : PRINT 

30 REM AFFICHAGE DE LA TRES HAUTE RESOL- 
UTION 

40 POKE 49160,0 :A = PEEK <4?246>;A = P 

EEK (49232) :A = PEEK (49239) 
50 A = PEEK (49165) 

60 REM POSI TI ONNEMENT DES COMMUTATEURS 

70 POKE 49234,0: POKE 49153.0: POKE 4915 

6,0: POKE 49154,0: POKE 49236,0 
30 REM EFFACE LA THGR 

90 HGR : POKE 49237,0: CALL 62450: POKE 

49236,0 i POKE 49234,0 
100 HCOLOR= 3 
1 10 FOR I = 1 TO 90 STFP 5 
120 FOR J «= o TO 6.29 STEP 0.5 / I 
130 X = 270 +2*1* COS (J):B =96+1 

* SIN (J) 
140 GOSUB 250 
150 NEXT J 
16-0 NEXT I 

170 REM SAUVEGUARDE DE L' IMAGE CPEE 
180 PRINT D*;"BSAYE CERCLE HAUT 1 ,A*2000 

.L52000" 

190 POKE 49237,0: PRINT D* ; " BSAUE CERCLE 

HAUT 2,AS2000,LS2000" 
200 POKE 49236,0 
210 TEXT 
220 END 
230 REM 

240 REM ANALYSE DES COORDONNEES THGR ; 

PAGE1 OU 2 ET 560 ->230 
250 XX = INT (X / 7):PG = XX - 2 * INT 

(XX / 2) 

260 XX = i NT (XX / 2) * 7 + X - 7 * XX 
270 POKE 49237.0: IF PG THEN POKE 49236 
,0 

230 IF XX > 279 THEN RETURN 

290 REM AFFICHAGE DIJ POINT AUEC HPLOT D 

ANS LA BONNE PAGE MEMO I RE 
30 HPLOT XX, B 
31 POKE 49236,0 
320 RETURN 



Programme HARD.S Source Big Mac 

1 ******* *************************** 

2 * x 

3 * * 

4 * TABLE DES LIGNES HGR * 



5 * * 

6 * * 

y ORG S40O0 

9 ; ORGAN I SAT I ON MEMO I RE 



: -1 

Pom's n° 18 



51 



10 
1 1 
12 
13 
14 
15 
16 
17 

18 
1? 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
34 
37 
38 
3? 
40 

41 

42 
43 
44 
45 
46 
47 
43 
4? 
50 
51 
52 



;300 : Taille 
| 30 1 : Inverse ou Normal 
;302 a 309 : Bu-ffer Caractere* 
;30A : Ordr© Ligne 
j3QB : Ordre Octet 
;I8 : octet a aller chercher 
;310 Parti© basse ou haute ligne 
i 31 1 ; Pointeur de repetition horiz 
on tal e 

DEBTAB 



ORG 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 

HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 

HEX 

HEX 

;Fin 



*4000 
00,20 
80 ,20 
00,21 
80,21 
00 ,22 
80,22 
00,23 
90,23 
23,20 
AS, 20 
23,21 
AS, 21 
23,22 
A3, 22 
28,23 
A8, 23 
50 ,20 
DO ,20 
30, 21 
DO ,21 
50,22 
DO ,22 
50,23 
00,23 
table 



59 
60 
61 
o2 
6 3 
64 

65 

66 
67 
63 
69 
70 
71 



FINTAB ;Fln table HGR 
* 

**************************** ****** 
*■ * 

* * 

* PROGRAMME PRINCIPAL * 
*- * 

* * 
********************************** 

; Table des commutateurs memoire 
EQU *C05E 
*C050 
*C057 
*C052 
*C00D 
4C001 

snooo 

■SC055 
*CU54 

*C002 
*C051 



53 AN 3 

54 GR 
33 HIRES 

56 FULL 

57 COL80 

58 ON30 5T 
OFF80ST 
OMPG2 
OFFPG2 
r r UT 
OFrRD 
ONT EXT 



EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 

: ADDRESSES SYSTEME 
COUT ECU *FDED 

; POINTEURS PKUGRAMME 
ORLIG EQU *30A 
OROCT EQU *30D 
ADR EQU $18 

INDIC EQU 430C 

72 TYPE EQU $301 

73 TAILLE EQU *300 

74 HBLIG EQU *310 

75 POINTE EQU *31 1 

76 OUTPORT EQU *FE95 

N DFS PERI PHERI QUES 

77 * 

UL 



78 
79 
80 



CLD 
3EI 
STA 



0FFPG2 



; SELECT IQ 
DEBUT DU CO 

;Eyj te les 



81 

82 
33 
84 
83 
86 
87 
83 
89 

90 

91 

92 
93 

94 
95 
96 
97 

93 
99 

I 00 
101 
102 

103 
104 
105 

106 
107 
103 
109 
110 

I I 1 
112 
113 
114 
115 
116 
117 
113 
119 
120 
121 
122 
123 
124 
125 
12o 
127 



p 1 an tages avec I a SSC 



LDA 
POUTE IMPR 
JSR 
L DA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 



tiSOl 

OUTPORT 

tt*89 

COUT 

•r z" 

COUT 
«*SD 
COUT 
tt*9B 



; MISE EN 



N DE L' INTERLI GNE 



E T 



JSR 
LDA 

JSR 
LDA 



COUT 
t*4D4 

COUT 
tt*Bl 



JSR COUT 
LDA tt*B6 
JSR COUT 
LDA AN 3 

E DE LA PAGE THGR 
LDA GR 
LDA HIRES 
LDA FULL 
STA COL30 
STA ON80ST 

ON COMMUTATION 

STA OFFWT 
STA OFFRD 
LDA tt*0 

SAT I ON N LIGNE 



AUTRE 



Al 



UR 



123 

1 29 
1 30 

1 31 
132 
1 33 
1 34 
135 
1 36 
137 
1 33 
1 39 
1 40 
141 

142 



STA 
STA 
LDA 
STA 
BIT 
BPL 
LDA 
EOR 
STA 
BIT 
9PL 
DEC 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
DE PAGE 
LDA 



ORLIG 

POINTE 

tt*FF 

HBLI G 

TAILLE 

Al 

HBLIG 
tt*FF 
HBLIG 
HBLIG 

Al 

ORLIG 

tf*3D 

COUT 

COUT 

tt'S'FO 

COUT 

tt*FF 

OROCT 

»*00 

INDIC 



tt*9B 

ION UNE LIGNE HGR 



E G 



COMPL 
T Z'E 



JCR 
LDA 

JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JMP 
LDA 
PAGE 

INC 



COUT 
tt*C7 

COUT 

ttSBl 

COUT 

*t*Bl 

COUT 

tt*B2 

COUT 

tttBO 

COUT 

CON PL 

fr*FF 

OROCT 



; SELECTIO 
; CARACTER 
; N OMBRE 1 

; AFFICHAG 

; PR EPA RAT I 
; INITIALI 



; INDICATE 
; SELECT 

; CARACTER 
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; CHAN GEM EN 
i INC REM EN 

Pom's n° 18 



-r- » -r r nw i 

TAT I ON 


ORORE 


OCTET 




1 87 


BNE 


L2 


143 


EOR 


INDIC 




1 88 


STA 


0FFPG2 




STA 


INDIC 




189 


BIT 


TYPE 


145 


STA 


0NPG2 




190 


BPL 


NOINU 




BNE 


SELEC 




191 


EOR 


#*FF 


147 


STA 


0FFPG2 




192 


NOINV JSR 


COUT 


14S 


DEC 


OROCT 


;PAS INCRE 


193 


BIT 


TAILLE 


MENTATION SI 


GOTO PG2 




1 94 


BPL 


NORME 


14? SELEC 


LDA 


ORLIG 


; CALCUL D 


195 




JSR 


COUT 


E L-'ADRESSE A CHARGER 


196 


NORME DEY 




150 


ASL 






X?? 


BNE 


LI 


151 


TAX 






193 


LDA 


8427 


152 


LDA 


DEBTAB ,X 




199 


CMP 


OROCT 


153 


STA 


ADR 




200 


BEQ 


Nl 


154 


LDA 


DEBTAB+ 1 ,X 




201 


JMP 


COMPL 


155 


BIT 


TAX LLE 




202 


Nl LDA 


tt*oo 


156 


BPL 


STORE 




203 


CMP 


INDIC 


157 


BIT 


HBLIG 




204 


BEQ 


N2 


159 


BPL 


STORE 




205 


JMP 


COMPL 


159 


CLC 






206 M2 INC 


ORLIG 


160 


ADC 








TAT I ON ORDPE 


L I GNE 


Ul STOPE 


STA 


ADR* 1 




207 


LDA 
STA 




162 


LDX 


H*0 




203 


*FF 


163 


LDY 


OROCT 




209 


LDA 


«430 


164 


LDA 


tt*00 




210 


STA 


*FE 


165 


STA 


POTNTE 




21 1 


LLL LDA 


***0Q 


166 CHRG 


LDA 


(ADR) ,Y 




212 


JSR 


COUT 


167 


STA 


*302,X 




213 


DEC 


*FE 


163 


I NX 






214 


BNE 


LLL 


169 


CPX 


HS3 




215 


DEC 


$FF 


170 


BEG 


FINCH 




216 


BNE 


LLL 


171 


BIT 


TA I LLE 




217 


LDA 


H*13 


172 


BPL 


NON 




218 


CMP 


ORLIG 


173 


LDA 


POINTE 




219 


BEQ 


FIN 


174 


EOR 


»*FF 




22U 


JMP 


AUTRE 


175 


STA 


POINTE 




221 


FIN STA 


0FFPG2 


17* 


BNE 


CHRG 






normal e des 


sw i t c h s 


177 NON 


LDA 


«i04 




222 


STA 


ONTEXT 


173 


CLC 






223 


STA 


0FF80ST 


179 


ADC 


ADR+1 




224 


LDA 


***3D 


130 


STA 


ADR+ I 




225 


JSR 


COUT 


181 


BNE 


CHRG 




226 


LDA 


tt*Q3 


182 FINCH 


LDY 


t**0 7 


; MI SE EN 


227 


JSR 


OUTPORT 


FORME DES COLONNES 




223 


LDA 


tt$3D 


133 LI 


LDX 


t**03 




229 


JSR 


COUT 


184 L2 


LSR 


*3Q1 ,X 






N EFFECTUER PR»3 


135 


ROL 






230 


RTS 




186 


DFX 











; iNCREMEN 



; Posi tion 

; PRtt3 

; POUR BIE 



HARD 



•4000 .41A0 



4000- 00 
4008- 00 
4010- 28 
4013- 29 
4020- 50 
4028- 50 
4030- D8 

4039- 95 

4040- DA 
4043- FO 
4050- 20 



20 80 
22 80 
20 A8 
22 AS 
20 DO 
22 00 
73 3D 
FE A9 
20 ED 
A? ?B 
ED FD 



20 00 

22 00 

20 28 

22 23 

20 50 

22 50 

54 CO 

39 20 

FD A? 

20 ED 

A 1 ? Bl 



21 80 21 
23 80 23 
21 A8 21 
23 A3 23 
21 DO 21 
23 DO 23 
A9 01 20 
ED FD A? 
8D 20 ED 
FO A9 D4 
20 ED FD 



4058- 
4060- 
4068- 
40 70- 
4073- 
4090- 
4033- 
40 90- 
4093- 
4QA0- 
40A3- 
-10 80- 
4083- 
40CO- 



a? eo 

AD 50 



20 
CO 

CO 3D 00 
04 CO 30 
OA 3 80 
10 03 2C 
10 03 4? 
10 03 10 
3D 20 ED 
FD A9 FO 

an or on 

A9 99 20 
ED FD A9 
Bl 20 ED 



fcD FD 

AD 57 

CO 30 

02 CO 



1 1 
00 



03 
03 



AD 5E CO 
AD 52 
CO 80 
3D 
3D 



CO 
01 
A? 00 



FF 3D 
03 CE 
FD A? 
20 ED 
A9 00 
ED FD 
Bl 20 
FD A* 



A9 FF 

10 £0 AO 

10 03 2C 

OA 03 A? 

?B 20 ED 

FD A? FF 

3D f)C 03 

A9 C7 20 

ED FD AO 

62 20 ED 



ECajOfe^W \q)W®M dtgirMTD g EPS 

Le Pacha Apple //e. //c 

O Listez ^os programmes Basic on avant ct on ar-r-ior-o. 
O rviodifiez. ins^rez, effacez des caracteres en piein 
6cran cans nolir-o let lignos. 

o Recnercrez tout© craine oe caracteres. 

O Croisissez vous-meme les codes de controle d" . 
o Modifie-z El^S : le fierier- source est sur la dlsquette. 

150.00 r nc franco (Don de commondc page 78). 



40C3- 


FD 


Ay 


B0 


20 


ED 


FD 


4C 


Dl 


4000- 


40 


A? 


FF 


EE 


0B 


03 


4D 


0C 


40D8- 


03 


3D 


OC 


03 


90 


55 


CO 


DO 


40EQ- 


06 


30 


54 


CO 


CE 


OS 


03 


AO 


40E3- 


OA 


03 


OA 


AA 


BD 


oo 


40 


9S 


40F0- 


13 


BD 


01 


40 


2C 


00 


03 


1 


40F3- 


03 


2C 


10 


03 


10 


03 


13 


69 


4100- 


10 


35 


iy 


A2 


00 


AC 


oe 


03 


4103- 


A? 


00 


30 


1 1 


03 


Bl 


13 


90 


4M0- 


02 


03 


E3 


E0 


03 


FO 


13 


2C 


4113- 


00 


03 


10 OA 


AD 


1 1 


03 


49 


4120- 


FF 


3D 


1 1 


03 


DO 


E7 A9 


04 


4 123- 


13 


65 


19 


85 


19 


DO 


DE 


AO 


4130- 


07 


A2 


03 


3E 


01 


03 


2A 


CA 


4 133- 


00 


F? 


3D 


54 


CO 


ZC 


01 


03 


4140- 


10 


02 


49 


FF 


20 


ED 


FD 


2C 


4 1 48- 


00 


03 


10 


03 


20 


ED 


FD 


83 


41 50- 


00 


OF 


A9 


27 


CD 


08 


03 


FO 


41 53- 


03 


4C 


Dl 


40 


A9 


00 


CD 


OC 


41 60- 


03 


F0 


03 


4C 


Dl 


40 


EE 


OA 


4163- 


03 


Ay 


03 


35 


FF 


A? 


30 


33 


4170- 


FE 


A? 


00 


20 


ED 


FD 


C6» 


FE 


4173- 


00 


F7 


C6 


FF 


DO 


F3 


A9 


18 


4130- 


CD 


OA 


03 


FO 


03 


4C 82 


40 


•U33- 


8D 


54 


CO 


9D 


51 


CO 


3D 


on 


4190 - 


CO 


A? 


3D 


20 


ED 


FD A9 


03 


4i?3- 


20 


95 


FE A9 


3D 


20 


ED 


FD 


43rMJ- 


60 
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Les pointeurs, suite 

Olivier Herz 



Pour illustrer et completer r article du 
Pom's 17 sur les pointeurs. nous 
vous offrons un petit programme de 
demonstration de Kegis Lardennois 
Celui-ci vous permct de bien 
comprendre la gesrion des variables 
dynamiques et de visualiser les 
adresses memoires utilisees. 
Le lecteur pouira aussi se reporter 
avec profit a deux autres articles du 
meme auteur. qui sont une applica 
tion un peu plus sophistiquee des 
notions decrites ci-dessous : 
'Tableaux de taille declarec en Pas- 
cal" (Pom's 0) et ; 

"Effacement de directory en Pascal" 
(Pom's 7), 

Citons egalement poui memoire les 
"PEEKs et POKEs en Pascal" de 
Jacques PINO (Pom's 12); c est unc 
sorte de "magouille" dont la compre- 
hension n'est pas immediate 

Utilisation 

11 suffit d'executer le programme et 
de repondre par un chitfre de 1 a 7 
au menu. 

1 - destruction tableaux 1 et 2 

2- creation tableau 1 

3- initialisation tableau 1 

4- creation tableau 2 

5- initialisation tableau 2 

6- visualisation tableau 1 

7- visualisation tableau 2 

Explications 

Laurence Tichkowsky nous a pre- 
sents les pointeurs comme etant des 
variables dynamiques; la place pour 
les blocker n"est pas reservee de 
facon immuable par la compilation, 
mais au contraire cette place est de- 
gagee a 1'execution au moment ou 
Ton cree un nouvel element du poin- 
teur (instruction NEW). 
Nuus alions malntenant voir que le 
Pascal UCSD permet a un pro- 
gramme dc se debarasser en cours 
a" execution des variables dynami- 
ques dont il n'a plus besoin II utilise 
pour cela, outre NEW, deux proce- 
dures du systeme UCSD : MARK et 
RELEASE. 

Le Pascal utilise une sorte de pile 
pour gerer ses pointeurs. la proce- 
dure NEW(P) cree P' et le place au 
somrnet de la pile. 

La PROCEDURE MARK(VAR PI 
LEPTR: INTEGER) va permettre a 
1' Apple de "memoriser" I adresse du 
somrnet de la pile, en faisant un 
MARK(PTR) ou PTR est de 
type INTEGER. 

Inversement, la PROCEDURE RE- 
LEASE(VAR PILEPTR: "INTEGER) 



( LE PROGRAMME CI APRES EST UNE APPLICATION TRES > 
C SIMPLE DES POINTEURS AVEC VISUALISATION DES ) 
C DES ADRESSES MEMOIRE UTILISEES > 

< I L PERMET DE BIEN CUMPKtNDRE LE FONCT I ONNEMENT ) 
t DES PROCEDURES PASCAL UCSD DE GESTION DES > 
C VARIABLES DYNAMIQUES NEW MARK et RELFASF ) 

<*R-#> 

PROGRAM TESTPOINTEUR; 

TYPE ARTICLE = RECORD NUMERO : INTEGER ; 

NOM : STRING ; 

END ; 

TABLEAU = ARRAYC9..91 OF ARTICLE; 
POINTEUR = "TABLEAU j 
PTI - " INTEGER ; 

VAR ART: ARTICLE; 

HEAP 1 , HEAP2 :PTI; 
PQINTl .P0INT2 :P0INTEUR; 
CL : CHAR; 
I : INTEGER; 

FUNCTION PTART I CLE C PT ■ POINTEUR) : INTEGER ; 
VAR X: RECORD CASE BOOLEAN OF 

TRUE : (PTR:P0INTEUR) : 

FALSE : < INT: INTEGER) ; 
END; 

BEGIN 

X .PTR;=PT; 

PTART I CLE :=X . INT ; 
END; 



FUNCT T ON PT INTEGER C PT : PT I >; INTEGER ; 
VAR X r RECORD CASE BOOLEAN OF 
TRUE :<PTR:PTn; 
FALSE :< INT: INTEGER); 
END i 

BEGIN 

X.PTR:=PT; 

PT INTEGER X . INT \ 
END ; 

PROCEDURE MENU; 
BEGIN 

PAGE( OUTPUT) ; WRITER CHK< 28) ) \ i COMPATI BI LITE APPLE II ET /// ) 
URITELNC 'PROGRAMME DE DEMONSTRATION DE L"USAGE DES POINTEURS'); 
WRITELN; 

WR I TELNC "MEMOIRE DISPO' .MEMAVAIL) ; 
URITELN; 

WRITE <' HCAP1 - ' , PT INTEGER< HEAP1 > , 

' HEAP 2 = ' , PT INTEGERC HEAP2) ) J 
WRITELNC # P0INT1 = PTART I CLE< POINT 1 ) , 
P0INT2 = ' ,PTARTICLE<P0INT2) ) ; 

URITELN; 

URITELNCM DESTRUCTI ON TABLEAUX I ET 2'); 
WRITELN<'2 CREATION TADLEAU 1'); 
WRITELN<'3 INITIAL TABLEAU 1'); 
WRITELN< ' 4 CREATION TABLEAU 2'); 
WRITELNC'5 INITIAL TABLEAU 2'); 
WRI TELNC * 6 VISUALIS TABLEAU l'>; 
WRI TELNC " 7 VISUAL IS TARLFA.IJ 2'); 
WR ITELN< * ESC QUITTER'); 
REA0<CL) ; 
END ; 

BEGIN 

MARK( HEAP1 ) ;HEAP2:=HEAP1 : P0INTI !=N I L ; P0TNT2 t^NI L ; 
REPEAT MENU; 

CASE CL OF 

'1' : BEGIN RCLEASE< HEAP1 ) ; HEAP2 : — HEAP1 j 
END; 

'2' : BEGIN NEW<POINTl ) ;MARK< HEAP2) ; END ; 
'3' :F0R I :=8 TO 9 DO 

BEGIN POINT I " C I J .NUMERO : = I ; 

POINT I • C I 3 .NOM : = ' TAB I ' ; 



va restituer 1'adresse du sommet de 
la pile, en faisant un RE- 
(PTR), ou PTR est de type 
~t et contenau cette adresse. 

Des lors, 1'affaire est simple . il suffit 
de fairc un MARK avant de faire un 
ou plusieurs NEW, pour notcr ta po- 
sition de la pile avant la creation de 
nouveaux pointeurs. Puis, lorsque 
1 on desire "jeter" ces pointeurs, il 
suffit de faire un RELEASE remettant 
le sommet de la pile la ou il etait 
avant 

Notons que le Pascal standard per- 
met de se debarrasser Individuelie- 
ment d'un pointeur par la procedure 
OSE, mais qu'il ne connait ni 
i ni RELEASE. 

Le programme est une application 
tres simple de ce qui precede; visuali- 
sons la pile apres differentes opera- 
tions, par exemple 1 - 2 - 4 - 4 - 

I) sommft * ftupl » h»ap2 



2) sonroet = he*o2 

4) scnm»t 
h«a P 2 

4) scrmi«t 



hf*o2 
heao! 

2) tomit - h»ap2 



tablt 1 



UQIf Z 

table 2 
<p*r im#») 

Ub)# 1 



UD'f 1 

Ubtt 2 
taole 2 



heapl 



tabU 1 
<p#r.met) 



Remarquons que les fonctions 
PTARTICLE et PTINTEGER ne sont 
que des PEEKs deguises. ■ 



END ; 

UNTIL CL=CHRC27>; 
END. 



END; 

'4' :NEW(P0INT2> ; 

'5' iFOR I !=8 TO 9 DO 

BEGIN P0INT2' C II . NUMERO : = 1 90 + 1 ; 

POINT 2* 1 1 ] .NOM : = 'TA02' ; 

END, 

'6' : BEGI N WRITELN; 

FOR I :=9 TO ? DO 

URITELN< POINT 1 "113 . NUMERO . P0INT1 ' C 13 .NOM: 19) ; 
READ< CD ; 

END ; 

'?' : BEGIN WRITELN ; 

FOR I :*=8 TO 9 DO 

WR I TELN< P0INT2" t I 3 . NUMERO , POINT2 * C I 3 -NOM : 1 8 > J 

READ(CL) j 

END; 



B^SICIUm. I0 Basic enrichi... 

adrard michai qppia n+, //« 

Cet utllltalr© vous permet de : 

□ GeVer des mosques ou herons 40 ou OO colonnes. Ces herons. 
cWlnls lors de lo progrommQtlon. somchent par io simple 
commande 1A. 

□ Solsir toutes les variables d un ecronenuneseulecorrvriondell 
en controlonc le type et la longueur. 

□ Pecopier I ecran «o ou OO coionnessur nmprimontepor K 

□ Folrauo nettoyaQe memolretrfcs rapldepor )F. 

□ Cerer des messages, la reponse eHunt contrOiee. 

□ mols oussl. ne solslr que rune des varlobies offectees a un 
tfcron. lesofflcher. les efrocer. etc... 

Tous les Nchiers source sont sur lo disquette. 

(Exemple de a&monstratton cfans le Rom's 13) 

DUquette et documentation : 150,00 F TTC franco (bon de commonde poge 78). 



Tirage au sort ! 

Dans notre precedent numero, nous annoncions 15 abon- 

nemenis avec disquettes a gagner pour les lecteurs qui 

nous renverraient le questionnaire. 

Vous avez ete nombreux a repondre et nous vous cn rc- 
mercions. 

Le tirage au sort a eu lieu le 30 avril 1985. La liste des 
heureux gagnants est foumie ci-contre : 

Si toutefois. un des gagnants veut offrir son abonnement a 
une personne de son choix, il doit nous faire parvenir les 
coordoiuiees completes de celle-cl. 

Les resultats detailles de ce sondage paraTtront dans le 
prochain numero. 



Baltayan Alain 8.3160 

Banos Maurice 13004 
Crueize Jean-Claude 77230 

Dettobi Christian 75013 

Deveze Jean-Luc 1 1 160 
Esposi to Gerard '51100 

Gaulon Pierre 72100 

Cintz Robert 67200 

Hentz Andre 57330 

Hugiies Gilbert 33470 

Lacroix Marc Suisse 

Menard Pierre 76800 

Simon Philippe 68300 

Picaud Jean 75011 

Pierrot Claude 28410 



[j\ ValPtte 

Marseille 

Moussy le Neuf 

Paris 

Caunes 

Reims 

Le Mans 

Strasbourg 

Hettange Grande 

Gujan Mestras 

Saint Etienne du Rouvray 

Saint Louis 

Paris 

Marolles BU 
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Puisque nous ne 
vous aviez oesoin, nous 





Vmion Out 



Une des plus graodes bibliotheques de togjcid 
programmes compatibles avec I'Apple De . jeu: 
gestion de base de donn&s, analyse financial 




■ 



Un clavier 63 louche* type AZERTY comprenant une accentuation complete et des 
caracftres majuscules/minuscutes integrfc. 



Comuaettr Comuckm Gmmt urn 

pour la souris. pour U modem, pour TV. mul 



Commuur 




(oukur. pour k munhtur vh/m. dt dhqueitt exteme. 

II I HJJ L jli "in 1 1 1 1 e 1 ill 1 1 1 1 1 1 1 fii - jll 




Conm tit ur pour h tecteur Commit ur pour 

impnmmu ou tracw. ^ m COmmen'*- 
rficran de haute c 
trfcs facilementt 
Si nous volis 3 
autanlde memoir 
en UO seul appare. f 
ctait indispensabk 





Seedrtl S.A.R.L. Avenue dc I'Octanie - IX tie Oxirtatauf B.K 131. 9944 U* I lis QsdQC 



savions pas de quoi 
vous avons tout donn£. 

































BhJftr Familial fanfr V'ritrr 




5orit fieri 



m monde; 16.000 
iraiiement de texte, 
planificalion. 



Apptt Wrtl 0»wt // U, Ohm* mJi: 

Voici 8 exemples de ce que vous pouvez afficher sqt voire 
ecran.8 parrai 16.000 1 a vous de dtawvrir les autrcs. 

Loreque vous aurez essayfi I'Apple lie vous ne regretterez pas 
notre gen£rosit£. 




seoriscnte I'Apple De relie a 

definition et a la souris. Ses connexions directes vous permettent d'utiliser 
.loutes les fbnetioos dont vous avez besoin : imprimante. modenu^ 

was donne autant de place, autaiit de beaute. ^^^^fc \\ 
(128 Ko ). autani de possibiliies \i 
e'est que cela ' 




Apple presente I'Apple He. 



Apple 




■■■ 
■■■ 
■■■ 

■ ■■ 
■■■ 

■ ■■ 
■■■ 

::: 



■■■■■■■■■ 

■■■■■■■■■ ■■ 

■■■ ■■■ 

■■■ ■■■ 

■■■ ■■■ 

■■■ ■■■ 

■■■ ■■■ 



■■■■■■■■■■■ ■■■■■■■■■■■■■■■ 



■■■■■■■■I 
■■■■■■■■I 




programmer 
un ordinateur est 
devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a ete cree 
pour vous. LIST vous aide a tirer davantage 
de votre materiel, a vous perfectionner 
dans la conception des programmes 
qui "tourneront" sur votre machine. 
LIST vous initie aux langages informatiques 
et selectionne les meilleurs livres pour 
progresser LIST vous informe de I'actua- 
lite et vous fournit trues, astuces et idees 
pour mieux programmer... 
Pour etre sur de ne rater aucun numero 
et pour recevoir LIST chez vous, 
abonnez-vous! 

VOTRE CADEAU! 

D'un format pratique (11,5 x 
cm), le TRANS'B ASIC est 

une table de conversion des 
instructions BASIC des 
21 micro-ordinateurs les 
plus courants. Ce fivret de 
24 pages vous permettra 
d'adapter sur votre ordi- 
nateur \a plupart des 
programmes concus 
pour les autres 
machmes. 



■■■■■■ 
■■■■■■ 
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BULLETIN D'ABONNEMENT 

(a retourner a LIST - Service Abonnements - 5, place du Colonel Fablen - 75491 Paris Cedex 10) 



Norn 



Prenom 



Adresae . 



Ville 



Cnrie postal I 



Pays 



Ve^lez m^abonner pour 10 numeros au pr.x ovantageux de 160 F* au Hot de 200 F - prix total du numeru - et madresser en cadeau 
- 'BASIC Je joins mon reglement indispensable libelle a I'ordre de UST 



>M UI -J a0 g- S S?^ M 50 FS ^""^a 30 $C autre* pays 210 FF P»r av. n . Afnquo Froncophonft 245 TF. AmOnque. autre Afnque. Oceania 309FF.A»t! 333 FF 
ffTjHgl.'i KfflySB 28 aw tWWfl 1,90 B,u * ellB * Vms«m«nt Snoete Gene.ale 210O40S 835-39 Sulae* 1ft route du Grand Mont. CH 105? Lo Mont sur Lausanne 
JJ25 Ca.sse dEpargne at de Credit. 10-2410 Le Mont CH 1062 comote courant n 1 650156-T Canada t MPl KUfi ruadftMMUl St Leonard (Quebec) H1CI 3H3 Canada 

Autre»poys place du Colonel Fabion 75491 Pans Cedex 10 



Rendez le DOS transparent 



Les programmes decrits dans cet arti- 
cle ne fonctionnent qu'avec un Apple 
//e muni d'unc carte 80 colonnes. 
Ayant realise quelques programmes 
qui n'utilisent I' Apple qu'avec des lo- 
giciels standards, j'ai ete amene* a re- 
chercher une transparence maximale 
du logiciel et en particulier du DOS. 
Ainsi les utilisateurs ne sont pas de- 
sorientes et retrouvent le style de 
presentation auquel ils sont habitues 
(80 colonnes, utilisation des touches 
"Pornme". menus...) et n'ont quasi- 
ment rien a apprendre avant d'crn 
ployer mes programmes. 

Les programmes Basic MENU, CAT 
PLEIN EC RAN el EDITCAT permet- 
tent a I'utilisateur : 

- De selectionner un fichier dans le 
catalogue de sa disquette, sans avoir 
a taper son nom, pour traitement ul- 
terieur par un programme (lecture, 
mise a jour, transformation...). 

- D'afficher a I'ecran les norns des 
fichiers du catalogue et de les modi- 
fier directernent en plein ecran, sans 
avoir a connattre les instructions du 
DOS. 

SALUT est un programme d' initiali- 
sation; MENU est le programme qui 
vous guidera lors de 1' utilisation (ils 
pourront vous donner quelques 
idees) et DEMO est un petit pro- 
gramme de demonstration des possi- 
bilites offertes par les programmes 
MENU et CAT PLEIN ECRAN. II n'a 
pas la pretention d'etre un modele (il 
utilise un INPUT elargi qui accepts 
3es virgulcs, mais refuse les lignes de 
plus de 256 caracteres et ne filtre pas 
les caracteres de conrrole) A noter 
que la ligne 300 teste le commuta- 
teur 80 colonnes afin de le retablir 
s'il a ete annule pendant I'impres- 
sion. 

Programme 

^initialisation 

Certaines. routines en langage ma- 
chine peuvent Stre exploiters par 
plusieurs programmes, ici e'est le cas 

de ■ 

- La routine de reconstitution du 
contexte en cas d'erreur (voir le ma- 
nuel Applesoft), indispensable dans 
tout programme qui s'adresse a des 
non informaticiens : un message d'er- 
reur, e'est la honte ! 

La routine RWTS et ses parame- 

tres (voir le manuel du DOS. p.90). 

- La routine Catalog --> Tableau 
publiee dans Pom's 9. 

- La routine de comptage du nom- 
hre de secteurs libres (inspiree de 
celle parue dans Pom's 10). 

- La routine d' INPUT elargi (tiree 
de Pom's 5). 



II est avantageux d'implanter. en une 
seule fois, toutes ces routines en me- 
rnoire (par exemple en page 3) par 
le biais du programme de salutation: 
ainsi, on gagne du temps et de la 
place (programmes plus courts). 

Pour rendre le programme plus lisi- 

ble et plus facile a modifier, la me- 
thode d'implantation pa r S:H LAM 
(publiee entre autres dans Pom's 2) 
peut £tre adoptee (comme ici pour la 
routine de comptage des secteurs 
libres) mais elle est lente. On gagne 
quelques secondes en chargeant (par 
BLOAD) un fichier binaire contenant 
toutes les routines (ici ROUTINES) 
ou encore en Implantant directernent 
dans le DOS de la disquette la rou- 
tine de comptage du nombre de sec- 
teurs libres (par exemple en utilisant 
le programme DIRAC de Pom's 10; 
ne pas oublier de forcer a zero le bit 

de poids fort des adresses : ainsi 
$ADC3 devient $2DC3 et se trouve 
en piste 1. secteur C: $BA6B devient 
$3A6B en piste 0, secteur 4; les 
codes AE et B3 des octets $3A6D et 
$3A79 deviennent : 2E et 33). 

La routine IDENT.APPLE, lancee au 
debut de SALUT, verifie que I' Apple 
est bien un //e equipe d une carte 80 
colonnes; K octet resultant stocke en 
$3CF (975 en decimal) prend les va- 
le urs suivantes : 

• si I' Apple utilise n'est pas un //e. 

• 32 si vous travaillez avec un He 
sans carte 80 colonnes. 

• 64 si votre Apple //e est muni 
d'une carte 80 colonnes mais sans 
memoire auxiliaire. 

• 128 si votre Apple //e est equips 
d une carte 80 colonnes et d'une 
memoire auxilliaire (Source : Tra- 
vaux Pratiques Applesoft, p.200). 

Remarque : ROUTINES ^utilise les 
zones memoires precedemment oc- 
cupies par IDENT.APPLE. 

Systeme d'aiguillage 
de la disquette 

Pour les utilisateurs non inities, la dis- 
quette programme doit representer 
un ensemble ferme et coherent ; le 
"boot" debouche sur un menu d'ai- 
guillage auquel renverront egalement 
tous les programmes lorsqu'ils auront 
accompli leurs riches. Le programme 
MENU assure cette fonction: il si- 
gnal* le moment d'introduction de la 
disquette. demande le numero du 
lecteur, avertit clairement en cas dc 
fausse rrianoeuvre, et (en ligne 350) 
POKE dans les adresses 923 a 953 
le nom du programme (precede de 



Jean-Pierre Januel 

la longueur de ce nom) choisl par 
I'utilisateur lorsque ce programme 
necesslte un passage prealable par le 
sous-programme CAT PLEIN 
ECRAN. 

MENU utilise la technique du menu 
a barres en inversion vid£o; e'est la 
plus reposante pour I'utilisateur en 
l'absence de souris ! 

Choix sur catalogue 
en 80 colonnes 

CAT PLEIN ECRAN offre les possibi- 
lites suivantes ; 

- II affiche le catalogue de votre dis 
quette en utilisant tout Pespace dis- 
ponible en 80 colonnes : 2 fichiers 
sur la meme ligne (un enregistrement 
fichier occupe 37 caracteres), soil 44 
noms de fichiers au maximum sur 
I'ecran. 

- II vous perrnet de traveller en 
plein ecran : vous pouvez deplacer le 
curseur (une barre en inversion video 
est positionnee, au depart, sur le pre- 
mier nom de la listel sur les noms de 

fichiers en utilisant les quatre touches 
de deplacement du curseur (fleches), 
ou encore en tapant "D" pour reve- 
nir au premier nom de Y ecran ou 
"F" pour aller directernent au der- 
nier. 

- Vous avez acces a 1' ensemble du 
catalogue : si votre disquette contient 
plus de 44 fichiers, vous pouvez 
consulter la suite du catalogue (3 
ecrans maximum puisque le DOS ac- 
cepte au plus 105 fichiers par dis- 
quette) en appuyant sur la touche 
"S" (Suite), puis revenir a la page 
precedente en tapant "P" (Precedent 
ecran). 

- Vous pouvez limiter Taffichage a 
un seul type de fichiers : les fichiers 
TEXT dans Pexemplc de DEMO; la 
variable TS (ligne 370 de MENU) si- 
gnale cette option a CAT PLEIN 
ECRAN, qui selectionne les fichiers 
voulus (ligne 320). 

Lorsque vous avez amen6 le curseur 
sur le nom de votre fichier. appuyez 
sur RETURN pour le selectionner Le 
programme qui va utiliser le fichier 
choisi est alors lance; il PEEKera 
dans les adresses 923 et suite le nom 
du fichier selectionne 1 , que CAT 
PLEIN ECRAN y aura POKe. 

La demiere ligne de I'ecran est un 
menu aide memoire qui rappelle la 
liste des touches utilisables et ieur si- 
gnification : 

• Fleches (pour deplacer le curseur 
dans les 4 directions). 

• D (pour debut de I'ecran). 

• F (pour fin de I'ecran ). 

• S (suite du catalogue, s'il occupe 



plus d'un 6cran). 

• P (precedent ecran s'il existe). 

• RETURN pour le choix du fichier. 

Nom des principales variables 

- PG$ : nom du programme sur le- 
quel il faudra enchainer. 

- A$(I) : enregistrements du catalo- 
gue (37 caracteres chacun sum d'un 
retour chariot). 

- F$(I) ; nom de fichier 
(= MID$ (A$(I).8.30J) 

- NF : Nombre de fichiers dans le 
catalogue. 

- KT : Nombre de fichiers selection- 
nes (si Ton desire seulement les fi- 
chiers textes par exemple). 

- SL : Nombre de secteurs libres. 

- NL : Numero du fichier dans sa 
colon ne. 

- 10 : Nombre de fichiers dans les 
colonnes precedentes (y compris 
6crans precedents). 

- NN : Numero du fichier dans son 
ecran. 

- X : code ASCII ( + 128) de la tou- 
che frappee par l'utilisateur. 

- MV ; emplacement (nombre de 



lignes). 

- PH : position horizontals. 

- PV : position verticale. 

Remarque : la ligne 250 simule le 
ONERR GOTO (non actif avec 
RWTS) en recuperant le code erreur 
de RWTS en $321 et en le 'tradui- 
sant" en code erreur du DOS : 
POKE 222,8. 

Variante 

On pourrait aussi utiliser ceci comme 
un programme de HELLO : il ne 
s'agit plus alors de selecOonner un fi- 
chier a faire traiter par un pro- 
gramme, mais un programme a lan- 
cer : CAT PLEIN ECRAN doit done 
£tre integre au programme SALUT 
(Attention ! la routine Catalog --> 
Tableau ne fonctionne que si le ta- 
bleau A$(N) est le premier declare et 
initialise), et MENU n'a plus de rai- 
soh d'etre, pas plus que les lignes 
180 et 850 a 870 de CAT PLEIN 
ECRAN (PEEK et POKE du nom de 
fichier); les routines de traitement 
d'erreur (lignes 30 a 70 et 240 a 
260) deviennent egalement inutiles. 
supprimer aussi le suffixe \D"LE' 
apres CATALOG en ligne 290; la fin 
de programme devient : 

840 PRINT : TEXT : HOME 
850 IF MID$(A$(NN),2,1) = "£T 
THEN PRINT D$ "RUN" A$(NN) 
860 IF MID$(A$(NN),2,1) - "B" 
THEN PRINT D$ "BRUN" A$(NN) 
870 IF MID$(A$(NN).Z1) = T" 
THEN PRINT D$"EXEC "A$(NN) 
Ces deux dernieres lignes suppose nt 
que vous connaissiez 1c contcnu des 
fichiers: a vos rlsques et perils... (le 
programme ainsi transforme ne 
sadresse evidemment plus aux non 



inities); vous pouvez cependant re- 
mettre en debut de programme un 
petit sous-programme de traitement 
d'erreur du genre : 

30 CALL 768 : POKE 216,0 : 

Y = PEEK(222) 

40 IF Y = 13 THEN VTAB12 : 

PRINT "Erreur sur le type de fichier. 

Ret --> autre essai ou 

Esc Applesoft": : GET Z$- 

PRINT :IF Z$ = CHR$(13) THEN 

280 

50 FND 

Vous pouvez meme prevoir que RE- 
TURN lance un RUN ou BRUN et 
"Espace" (par exemple) un LOAD 
ou BLOAD. 

Edition plein ecran 
sur catalogue 

Visicalc et Applewriter offrent des 
possibility d' action assez limitees sur 
le catalogue d'une disquette FID 
n'est interessant que pour des opera- 
tions en serie sur des fichiers; quoi 
qu'il en soit, Finstniction la plus ma- 
laisee a utiliser est le RENAME, qui 
oblige a taper en entier le nom de 
Fancien fichier et le nouveau. 

Le programme EDITCAT remedie a 
ces lacunes : 

- II offre toutes les fonctions de de- 
placement de CAT PLEIN ECRAN. 

- Vous pouvez non seulement effec- 
tuer les operations classiques d'effa- 
cement, de verrouillage et deverrouil- 
lage de fichiers, mais aussi aller 
modifier directement le nom d'un fi- 
chier comme si vous travailliez avec 
un traitement de textes de type Ap- 
plewriter. 

- De nombreuses securites sont pre- 
vues : le programme refuse d'obeir si 
vous essayez de franchir les limites 
de Fecran ou du catalogue, il vous 
avertit si vous avez oublie de fermer 
le lecteur, si votre disquette n'est pas 
formattee sous DOS 3.3, si vous es- 
sayez d'effacer ou de modifier un fi- 
chier verrouille et meme si vous es- 
sayez d'intervenir sur le "trou" laisse 
par un fichier efface, ou si vous avez. 
par megarde, rebaptise un fichier 
avec un nom deja attribue. 

Quand vous I'appelez, le programme 
commence par verifier que vous avez 
bien mis une disquette DOS 3.3 
dans le lecteur choisi et leferme la 
porte (pour ce faire. il va lire le 
VTOC de la disquette en utilisant 
RWTS et v^rifie le numero de la ver- 
sion du DOS : 4 erne octet du 
VTOC), puis il charge le catalogue 
de la disquette et affiche les 44 pre- 
miers noms de fichiers. 

Sur la premiere ligne de Tehran, Il 
precise le nombre total de fichiers de 
la disquette et le nombre de secteurs 
libres. 

La derniere ligne rappelie la liste des 
touches que vous pouvez utiliser 



pour accomplir les actions desirees : 

• Fleches (pour le deplacement du 
curseur dans les 4 directions). 

• D (dSbut • appuyer sur la touche 
D ou d pour aller au premier nom 
en haut a gauche de Fecran). 

• F (fin • pour aller au dernier nom 
de Fecran). 

• S (suite : pour aller a Fecran sui- 
vant) 

• P (pour revenir a Fecran prece- 
dent). 

• M (pour modifier le nom du fichier 
sur lequel se trouve le curseur 
(voir plus loin le sous-menu de 
oette option) 

• E (pour effacer le fichier ; un RE 
NAME est d'abord tent6 pour veri- 
fier que le fichier n est pas ver- 
rouille; il vous est ensuite 

demande, par message en haut 
d'ecran, confirmation ou annula- 
tion : (ui) /N(on)). 

• V (pour verrouiller un fichier). 

• W (pour le rieverrouiller). 

• C (pour compacter Faffichoge. eli- 
miner les "trous" laiss^s par les fi- 
chiers effaces, et remettre a jour 
les compteurs de nombre de fi- 
chiers et de secteurs libres : en 
fait, il s'agit tout simplement de re- 
charger le catalogue mis a jour). 

• RETURN (Retour chariot) indique 
la fin de travail sur ce catalogue : 
le programme demande si vous 
desirez passer a une autre dis- 
quette (RETURN) on retoumer au 
menu general de la disquette (par 
la touche ESC). 

Quelques precisions sur 
la modification 

Cette fonction affiche dans le coin 
superieur gauche de Fecran le mot 
"Modification", remplace le curseur 
barre par un curseur caractere et affi- 
che sur la derniere ligne un nouveau 
menu : 

• Fleches : deplacement du curseur 
a Flnterieur du nom de fichier. 

• Pomme Ouverte-X : remplace le 
caractere sous le curseur par le ca- 
ractere tape (ici X). 

• Pomme Pleine-Y • insere le carac- 
tere Y avant le curseur; cette op- 
tion ne fonctionne pas sur les 29 
erne et 30 erne caracteres : utiliser 
le remplacement dans ce cas. 

• Del : la touche DELETE vous per- 
met d'effacer le caractere qui se 
trouve sous le curseur. 

• ESC : en appuyant sur cette tou- 
che, vous annulez toutes les modi- 
fications effectuees sur ce nom de 
fichier; Fancien nom est reaffiche 
et vous retournez au mode "De- 
placement". 

• RETURN permet de confirmer le 
nouveau nom de fichier (RE- 
NAME, apres avoir verifie que le 
nouveau nom n est pas deja attri- 
bue); vous etes alors ramene au 
mode "Deplacement". 




Pom's n° 18 



Signe de reconnaissance 




Sac sport: toile emlniie 
marine, biais gris. 
Sanies + bandouliere 
amovible, ton sur inn. 
Grand pock exterieure 
femiant par glissiere. 
Fond caoutchouc isolant. 
Longueur tulale; 70 cm. 
Largeur JOcm 




Sac de voyage : caouichouc souple 
"high lec . grisdmiY Sangleston 
surton. Fcrmcnjre par glissiere. 
Grande poche inteneure. iMarquage 
bap.:tgp 

Auadie-case : Assonl au sac de 
voyagp. souple el 
confortable. Une 
poche inteneure 
compartimemee. 
Fernietuit par deux 
bou tons noire. 
Marquage bugage. 



le* « guoilieb » dans le (argon /\pple. ce soni tous les arressoires a s offrir ou a nffrir pour (se ) faire plaisir 
La collection 8S vous propose une gamme sport et voyage. Nous es|>eroiis que ces nouveautes sauront vous 
seduire F.IIes ont ete creees dans I esprit .Apple, pour vous qui partagez avec nous une certaine lacon de 
vivre, de travailler. de bouger... 



1 



Designation 


Quanlite 


Prix unitaire 


Prix total 


Sac sport bleu 




285,00 F 




Sac voyage gris 




285.00 F 




Attache-case gris 




230,00 F 





Montant total de la commande Frais de port Indus _ _ T.T.C. 

Reglement par cheque joint a l ordre de APPLE SEEDHIN. ct adresse a . 
« Boutique Apple » Avenue de I'Oceanie ZA de Courtaboeuf - BP BI - 91944 Les Uls Cedex 
Cette cattiinande est a envoyer a: 
Nwn : —Adresse: 




Des conditions particuliercs sont re'servees aux adherents du Club Apple, Souhaite/-vnus recevoir des 
informations sur le Club Apple : 01 1 □ \ON □ 



Apple 



Le programme controle le bon res 
pect des» reyles du DOS concernant 
les noms de fichiers : il transforrne les 
minuscules en majuscules, refuse les 
caract^res iion alpliabetiques cornrne 
premiere lettre du nom, les virgules 
et meme les caracteres de controle 
qui poseraient des ptublemeb a I'affi- 
chage. 

Note ; de nombreux messages ont 
ete prevus pour prendre en compte 
le travail avec un seul lecteur de dis- 
quette : si vous en avez deux, vous 
pouvez alleger notablement les pro- 
grammes en affectant le premier a la 
disquelte programme et le second a 
la disquette fichiers. Vous pouvez 
alors eliminer les messages du style 



"lnserez la disquette programme 
(ou : fichter)..." ou "Erreur ! Ce n est 
pas la disquette programme !", etc. 

Utilisation 
des pages a 3 

Routines en langage machine 

IDENT- APPLE : A$2D4,L$FB 
ROUTINES : A$300,L$9B 

- $300 (768) ^ reconsfirution du 
contexte en cas d' erreur. 

- $30B (779): lancement de 
RWTS. 

- $314 a $328 ! parametres RWTS. 

- $316 (790) : numero de lecteur; 

- $321 (801) : code erreur 

- $32A (810) : routine Catalog --> 



Tableau 

- $340 (832): INPUT elargi 
Parametres divers 

- $06-$07 : nombre de secteurs 
libres 

- $08 : numero de lecteur 

- $09 : mode d'affichaqe (40 ou 
80) 

- $10 - numero de choix dans le 
menu. 

- $11 ; option "fichiers textes uni- 
quemenf pour CAT PLE1N ECRAN 

Nom de programme ou de fl- 
chier 

- $39B (923) : longueur du nom 
$39C a $3BA : nom du fichier ■ 



Programme SALUT 



10 REM PROGR. D' INITIALISATION 

20 Y* = B ADC3:20 6B BA N BA6B:20 2F AE A9 
00 85 06 85 07 AO C8 18 B9 F2 83 

F0 0E OA 90 FB 48 E6 06 DO 02 E6 

7 68 18 9-0 F0 88 DO E? 60 m : REM C 

omptage secteurs libres 
30 W = CHR* <4)s REM D*=CTRL-D 
40 PRINT W8RUN I DENT .APPLE" iAP = PEEK 
(975): IF AP < 64 THEN PRINT "DE 

SOLE: CE PROGRAr*WE NECESSITE" : PRI 

NT TA©< 10) | I IWERSE 
50 IF AP = THEN PRINT "UN APPLE//E" 
60 IF AP = 32 THEN PRINT 1 UNE CARTE 80 

COLONES" 
70 IF AP < 64 THEN NORMAL i END 
80 PRINT D* B PR£3" 

90 PRINT : V/TAB 1: HTAB 32: INVERSE I PR 

INT " BON JOUR";: NORMAL 
100 YS = Yi + - N D9C6G' 

110 FOR J = 1 TO LEN <Y«) I POKE 511 ♦ J 
, ASC < MID* <Y*,J,1>> ♦ 128: NEXT 
J: POKE 72,0: CALL - 144 

120 PRINT : PRINT WBLOAD ROUTINES" i CA 
LL 832 

130 PRINT : PRINT M'RUN MENU" 
140 END 



Programme MENU 



10 
20 



REM 

GOTO 90 



MENU — 



30 HA 



40 



50 

60 
70 
80 



INT <<78 - LEN <T*>> / 2): PRIN 
T : GOSUB 40: PRINT TAB < MA);IV*" 
■T*" "NO* 
PRINT TAB< r%=»>;: INVERSE : FOR I = 1 
TO LEN <T*> + 4: PRINT " "j: NEX 
T : NORMAL i PRINT : RETURN 
VTAB 2 * CH + 7: POKE 1403, INT <<80 

- LEN (C*(CH))) f 2> : RETURN 
GOSUB 50: PRINT C*<CM>i RETURN 
CALL 768: POKE 216,0: 0NERR GOTO 70 
Y = PEEK <222>: IF Y = 8 THEN PRINT 
G* IV* "ATTENTION! •NO*' Porte lecteu 
r disq.ouverte ou disq.vierge ou a 
bimte.'i PRINT "Fermez la port© ou 
changez la disquette puis appuyez 
sur une touche.';: GET Z%\ PRINT 
i HOME : RESUME 
D* = CHR* <4> i REM Ctrl-D 
R* = CHR* <13>;6* = CHR* (7) I REM 
Return & Ctrl-G 

110 IV* - CHR* <15>iNO* - CHR* <14)i RE 
M INVERSE et NORMAL 



90 
100 



120 HOME : 0NERR GOTO 70 

130 GOSUB 450 t GOSUB 30: PRINT TAB( rW) 

;IV*- *ST* B "NOi! GOSUB 40 
140 VTAB 24: POKE 1403,18: PRINT IV*'Fle 

ches'NO*" MV*"Choix par Return'NO 
*■ TV*"Esc — > Menu General "NO*; 
150 FOR CH = 1 TO NC: GOSUB 50: PRINT C* 

<CH): NEXT 
160 CH = 1 : GOTO 230 
170 POKE - 16 368,0 

180 C = PEEK < - 16384): IF C < 1 28 THEN 
1 80 

170 IF C - 138 THEN 240: REM Bas 
200 IF C = 139 THEN 260: REM Hau t 
210 IF C = 141 THEN 280: REM Return 
220 GOTO 170 

230 GOSUB 50: PRINT IV*CS< CH)NO*i GOTO 1 
70 

240 GOSUB 60:CH = CH + 1: I F CH > NC THE 

N CH = 1 
250 GOTO 230 

260 GOSUB 60:CH = CH - 1 : IF CH = THEN 

CH = NC 
270 GOTO 230 

280 IF CH < 1 OR CH > NC THEN PRINT G* : 

GOTO 170 
290 POKE - 16368,0 

300 PRINT : HOME : POKE 10,CH!TS = 
310 ON CH GOTO 320,330,380,320,380,440 
320 T« - "AFFICHAGE FICHIER TEXTE"; GOTO 
340 

330 T* = "IMPRESSION FICHIER TEXTE" 
340 PG* - "DEMO": HOME i GOSUB 30 
350 LP = LEN <PG*>: POKE 923.LP: FOR I = 
1 TO LP: POKE 923 + I, ASC < MID* 
C PG*> , I , 1 >> : NEXT 
360 COL =80: IF CH = 4 THEN COL ■ 40 
370 POKE 9 f C0L:TS = 1: POKE 1 1 ,TS: PRINT 
DS-RUN CAT PLEIN ECRAN,Dl'i REM 
TS=Option "fichiers TEXT seuls' 
380 PRINT : VTAB 10s PRINT "Ins*rez votr 
e disquette fichier puis donnez le 
n' de lecteur." \\ GET Z»:NL = VA 
L <Z»>! IF NL < > I AND NL < > 2 
THEN PRINT G* : GOTO 380 
390 IF CH = 3 THEN POKE 8,NL: PRINT : P 

RIWT WRLW EDITCAT , Dl ■ 
400 PRINT : HOME s PRINT TAB< 26>IV*"CA 
TALOGUE DE VOTRE DI SQUETTE'NO*" 
Tapez 'Retour chariot" 
410 PRINT TAB< 64> B pour continuer.' 
420 POKE 34,2 

430 PRINT D* | ■ CATALOG , D"NL : K/T&B 2: POKE 
1403,31: PRINT PEEK <6> ♦ 256 * 
PEEK <7);" Secteurs libres - :: GET 



62 
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Z*: TEXT : HOME : GOTO 130 

440 END 

450 T* = " D I S Q U E T T E " :ST* = ■ 

-Men u- • :NC = 6 

460 C*<1> = "Afficher un fichier texte " 
470 C*(2> = "Imprimer un fichier texte" 
480 C*<3> = "Remanier le catalogue d'une 
di squet te" 

490 C*<4> = C*<1> + -en 40 col.":C*<i) - 

C*<I> ♦ "en 80 col ." 
500 C*<5) - "Voir le catalogue de votre d 

i squette" 

510 C*<6) - -Arreter et passer en Basic"* 
RETURN 



Programme EDICAT 



10 REM 



20 
30 
40 



50 IF 



60 IF 



70 IF 



80 IF 



90 
100 

110 

120 

130 
140 



150 
160 
170 
180 
190 

200 
210 
220 

230 
240 

250 

260 



270 
280 



EDIT EUR DE CATALOGUE 

PI FIN-FCRAN 

GOTO 360 

REM Trai teroent erreurs 

CALL 768: POKE 214,0 sY = PEEK <222>: 
POKE - 16363,0: ONERR GOTO 40 

Y = 8 THEN HOME : PRINT B*B*B*"At 
tention' Porte teeteur disq.ouuert 
e ou disq.vierge ou abimee-": PRIN 
T "Fermez la porte ou changez la d 
i coquette puis appuyez sur une touc 
he."j: GET Z* : GOTO 100 

Y = 4 THEN HOME : VTA 8 12: PRINT 
B*B*" D i sque t te protegee. Enlevez 1 
'etiquette.";: GET Z*: GOTO 100 

Y = 10 THEN GOSUB 180: PRINT 8%B% 

B* IV* " A t t en t i on ! Fichier verrouill 
e" ; : GOSUB 110: RETURN 

Y = 6 THEN PR INT B*B*"Erreur! Ce 
n'e^t pas la disquette programme!" 
: GOTO 1170 

GOTO 450 

PRINT ! HOME s ON LC GOTO 400,530,11 
70 

FOR 1=1 TO 1000: NEXT : GOSUB 150: 
R FT URN 

REM Deplacements curseur — 

GOSUB 180 

PRINT F*<NN + I0);:NN = W + MV : IF 

W = NI THEN VTAB PV: POKE 1403.P 
Hi GOTO 160 
GOSUB 180 

PRINT IV*F*<r*J + I0)NO*; 
RETURN 

IF NN < 23 THEN 
IF hN > 22 THEN 

1403,47 
RETURN 
IF NN < 23 
IF > 22 

1403,40 
RETURN 

REM Ss-progr amines de uerifi 

cation & r e i n i t i a 1 n 

VTAB 20: PRIrTT R*D* "RENAME "F*(r*J ♦ 

I0>','F*<NN ♦ I0> i RETURN 
IF F*<rW + 10) = " 

" THEN GOSUB 180: PR I 

NT B*B*B*IV*"Fichier *44 ace "NO* ; : 

GOSUB 110: POP 
VTAB 20 : RETURN 

VTAB 24: POKE 1403, Oi PRINT IV*"Flec 
hes'NW " IV*"D<ebut "NO*" ■ IV*" FC i 
n"N0*" " IV*"S<ui te'NO*" "IV*"P(rec 
"NO*" " IV*"M<odi f "NO*" ■ IV*"E<f -fac 
"NO*" -IV»-V(err-NO»" • I V»"W=dever 
r'NO$" " IV*'C<nmp*NO*" -IV*"'Ret'- 



VTAB NN 
VTAB NN 



1 : HTAB 8 
21: POKE 



THEN 
THEN 



VTAB 
VTAB 



+ 1 : HTAB 1 
- 21 i POKE 



290 

300 
31 
320 



330 
3*40 
350 



>menu"NO*; : RETURN 
REM Verification pour ev i ter d 

oubl e at tr i bu t i on 

FOR 1=1 TO NF 

IF FF* < > F*< I) THEN 330 

GOSUB 180: PRINT B*B*I V* "Nom deja at 

tribue-NO*;: GOSUB 110: POP : GOTO 
1250 
NEXT 
RETURN 

REM PROGRAhME PRINCIPAL 



360 IV* = CHR* <15):NO*= CHR* (14) :B* 
= CHR* <7>iR* - CHR* <13) 

370 D* = CHR* <4): REM Ctrl-D 

380 LC = 1 : ONERR GOTO 40 

390 N - 105: DIM A*<N),F*<N) 

400 ER = 0:KL = PEEK <8): POKE 790, KL: C 
ALL 779 

410 ER - PEEK <801): I F ER = 64 THEN PO 
KE 222,8: GOTO 40 

420 IF ER = 16 THEN POKE 222,4: GOTO 40 

430 DOS = PEEK <8195): IF DOS < > 2 AND 
DOS < > 3 THEN VTAB 12: PRINT B 
*B*"SEULES LES DISQUETTES F0RMATTE 
ES SOUS "IV**DOS 3.3 ou 3.2"NO*" S 
ONT ACCEPTEES- " : FOR 1=1 TO 2000 
: NEXT : GOTO 1180 

440 REM A-f* ichage catalogue 



450 



460 



470 NF 



480 
490 
500 



510 
520 
530 
540 
550 

560 

570 
580 

590 
600 

61 
620 

630 
640 

650 
660 
670 



HOME :A = FRE <0) :A* = "i FOR I = 
1 TO 19iA* = A* + " " a NEXT : FOR 
I = N TO 1 STEP - 1:A*<I) = A* * 
A*: NEXT :A*<0) = A* + " " :A = PEE 
K <107) + PEEK <108> * 256 + 8i P 
QKE 254, PEEK <A) : POKE 233, PEEK 
(A + 1 ) 

PRlhfT R*D*"N0M0NCI0" : POKE 54,42: P0 
KE 55,3: POKE 56,60: POKE 57,3: CA 
LL 1002! PRINT W CATALOG , D" KL ! PR 
I NT D*"PR£0": PRINT D*"IN£0" 

0: FOR 1=1 TO N: IF MID* <A*< 
I),2 V 1) < > " " THEN NF = NF + 1: 
NEXT 

SL = PEEK <6> + 256 * PEEK (7) 
PRINT D*"PR£3":LC = 2 

PRINT TAB< 28) IV*" CATALOGUE "NO*" 
■ IV*NF j NO* - f ichiers " IV*S 
L;NO*" secteurs libres": PRINT : P 
OKE 34,1 
GOSUB 280 
POKE 35,23: HOME 
10 = 0:hN = 1 
NL = NF - 10: IF NL 
FOR I = 1 TO NL ; 1 1 
+ 1 

POKE 1403,0: IF 10 

HEN POKE 140 3,40 
PRINT LEFT* <A*< I I > 
F*<II) = MID* (A*( II) ,8,30) : PRINT F 
*< I I ) 3 
NEXT 

IF 10 = 22 OR 10 = 66 THEN 10 = 10 - 

22: GOTO 640 
IF NF - 10 < 23 THEN 640 
NL = NF - 10 - NL: IF NL > 22 THEN NL 

- 22 

10 = 10 + 22; VTAB 2: GOTO 550 
NTJ = 1 : VTAB 2: HTAB 8: PRINT IV*F*<N 
N + I0)NO* 

REM Cholx utllisateur 

POKE - 16368,0 
X = PEEK < - 16384): IF X < 128 THEN 
670 



22 THEN NL = 
I + 10: l/TAB 



22 
I 



22 OR 10 = 66 T 



i 7 ) 



680 IF X = 136 THEN GOSUB 890 
690 IF X = 138 THEN GOSUB 860 
700 IF X = 139 THEN GOSUB 840 
710 IF X = 141 THEN 1100 
720 IF X ■ 149 THEN GOSUB 910 
730 IF X > 224 AND X < 251 THEN X = X - 
32 

740 IF X = 195 THEN 450 
750 IF X = 196 THEN GOSUB 950 
760 IF X = 197 THEN GOSUB 960 
770 IF X = 198 THEN GOSUB 1030 
780 IF X = 205 THEN GOSUB 1220 
790 IF X = 208 *=ND 10 > THEN 1080 
800 IF X = 211 AND NF > 1 ♦ 44 THEN 105 


810 IF X = 214 THEN GOSUB 1010 
820 IF X = 215 THEN GOSUB 1020 
830 GOTO 660 
840 IF 1*1 = 1 THEN 1070 

850 MU = - 1 ;NI = 22 : PV = 23:PH = 7: COS 

UB 130= RETURN 
860 IF NN = NF - 10 THEN RETURN 
870 IF W = 44 THEN X = 211: RETURN 
880 W = 1 :NI = 23;FV - 2 : PH = 47: GOSUB 

130: RETURN 
890 IF W < 23 THEN RETURN 
900 W = - 22:NI = 0: GOSUB 130: RETURN 
910 IF W > 22 THEN RETURN 
920 IF NF - 10 < 23 THEN RETURN 
930 W = 22: IF W ♦ MV > NF - 10 THEN R 

ETURN 

940 NI = Ot GOSUB 130: RETURN 

950 MV = 1 - hW:NI = 0= GOSUB 130: RETURN 

960 GOSUB 260 :Y = 0: GOSUB 250s IF Y = 1 

THEN RETURN 
970 VTAB I ! POKE 1403,0: PRINT I^>*"E-f-fac 

cr ? Confirmez <0/N>'NO*ii GET Z* : 
IF Z* < > -0- AND Z* < > -N- TH 

EN 970 

980 UTAB 1: POKE 1403,0: PRINT ■ 

990 IF Z* = "N" THEN RETURN 
1000 PRINT RiW DELETE "F*<SW ♦ I0>:F*<N 
N ♦ 10)=" 

■ : GOSUB 210: PRINT - 
"IV*F*<NN + I05NO»|i RETURN 
IO10 GOSUB 260: PRINT R*D*"LOCK "F*<NN ♦ 

10): GOSUB 210; PRINT ■*";; RETUR 

N 

1020 GOSUB 260: PRINT R*D*" UNLOCK "F*<NN 
+ 10): GOSUB 210: PRINT " " ; : RET 
URN 

1030 MV = NF - NN - 10: IF NF > 44 + 10 T 

HEN ^ = 44 - hW 
1040 NI = O: GOSUB 130: RETURN 
1050 IF 10 > 66 THEN 660 
1040 10 = 10 + 44: HOME : GOTO 540 
1070 IF IO = THEN RETURN 
1080 10 = 10 - 44: HOME : GOTO 340 

1090 REM Fin trai tement 

1100 HOME ; VTAB 10; HTAB 1: PRINT "Voul 
ez-uous passer a une autre disquet 
te ou retourner au menu general ? 

"vTAB 24: POKE 1403,0: CALL - 8 
68: PRINT IU*"Return' = autre dis- 
quette'NOS" -IV*"'Esc' = menu'NO*; 
1110 POKE - 16368,0 
1 120 X = PEEK C - 1 6384 > 
1130 IF X < 128 THEN 1120 

1140 IF X < > 141 AND X < > 1 55 THEN 1 
110 

1150 POKE - 16368,0; PRINT : TEXT ; H0M 
E 



1160 IF X = 141 THEN 1190 

1170 LC = 3s IF Kt » % THEN VTAB 10: PRI 
NT "Inserez la disquette programme 
en Dl puis faites 'Return'";: GET 
2* 

1180 PRINT RfWRuN MENU,D1" 

1190 UTAB 10: PRINT "Inserez uotre disqu 
ette et donnez 1e n" du lecteur";: 
GET Z*: PRINT :KL = VAL CZ*>: IF 
KL < > 1 AND KL < > 2 THEN 1190 

1200 POKE 8,KL; CLEAR : GOTO 360 

1210 REM Modification nom f ic 

hier 

1220 GOSUB 260 :Y = 0: GOSUB 250; IF Y = 

10 THEN RETURN 
1230 <JTAB 1: HTAB 1: PRINT IU*"Mod i 4 i cat 

ion 'NO*; 

1240 VTAB 24: POKE 1403,0: PRINT IV*" — > 
■NO*" a lV*'< — "NO*" -IV*'PomOuv=Re 
mplacer'NO** " IV*"PomPl ne=I ns*rer " 
NOt" "IV*-Del=Effacer"NO*" "lv*"Es 

c=Annuler"NO*" ■ I U* ■ Re t=Con* i rmer 
■NO*; 

1250 FF* = FSCNN + I0>:PH = 7 

1260 Y4 = ■■ i IF PH > 7 THEN Y* = LEFT* 

<FF*,PH - 7> 
1270 Z% - "" : IF PH < 36 THEN Z% = RIGHT 

* <FF*,34 - PH> 
1280 X* - MID* <FF*,PH - 6 f l> = GOSUB 180 

: PRINT Y*IV*X*NO*Z*i 
1290 POKE - 14368,0 

1300 X - PEEK < - 16384>:P0 - PEEK < - 

16287> :PP = PEEK < - 16286) 
1310 IF X < 128 THEN 1300 

1320 IF X ■ 136 AND PH > 7 THEN PH - PH 

- 1 : GOTO 1260 

1330 IF X = 149 THEN 1440 
1340 IF X = 155 THEN 1460 

1350 IF X = 141 THEN GOSUB 300: VTAB 20 
: PRINT R*D*" RENAME 'FtCfftl + 10)', 
"FF*:F*<NN * IO> = FF*: GOTO 1460 

1360 IF X < 160 THEN 1290 

1370 IF X = 255 THEN FF* = Y* + 2* *■ CH 

R* <160) : GOTO 1260 
1380 IF X > 224 FtfSD X < 251 THEN X = X - 
32 

1390 IF X - 172 THEN 1290 

1400 IF PH = 7 AND (X > 218 UK X < 193) 
THEN GOSUB 180: PRINT B*IV*'Comme 
ncez par une 1 e t tre ! "NO* ; : GOSUB 1 
10: GOTO 1260 

1410 IF PO > 127 THEN FF* = Y* + CHR* < 
X) + Z*: GOTO 1440 

1420 IF PP > 127 AND PH < 35 THEN FF* = 
Y* + CHR* <X> + X* ♦ LEFT* (2*, 
LEN <Z*> - 1>: GOTO 1440 

1430 GOTO 1290 

1440 IF PH < 36 THEN PH = PH +• 1 
1450 GOTO 1260 

1460 VTAB 1: POKE 1403,0: PRINT " 

■ ; : GOSUB 280 : GOSUB 1 50 : RFT 

URN 



Programme CAT PLEIN ECRAN 

10 REM CATALOGUE PLEIN-ECRAN 

20 GOTO 18U 

30 CALL 768: POKE 216,0: ONERR GOTO 30: 
POKE - 16368,0 

40 Y = PEEK <222): IF Y = 8 THEN PRINT 
B*R*B*'Attention' Porte lecteur di 
sq.ouverte ou disq.vierge ou abim£ 
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e.": PRINT "Fermez la porte ou cha 
ngez la disquette puis appuyez sur 
une touche.";: GET 2* s PRINT t HO 
ME : IF ER = 64 THEN 230 
50 IF Y = 8 THEN RESUME 

60 IF Y = A THEN VTAB 15: PRINT B*B*'Er 
reur! Ce n'est pas la disquette pr 
ogramme!": GOTO 880 

70 GOTO 280 

so rem D£p 1 acemen ts curseur — 

90 GOSUB 140 

100 PRINT F*<NN + I0);:W = NN + t+J : IF 
MM = NI THEN VTAB PV: POKE 1403, P 
H: GOTO 120 

110 GOSUB 140 

120 PRINT IV*F*(W ♦ I0)NO*; 
130 RETURN 

140 IF NN < 23 THEN VTAB NN ♦ 1 1 HTAB 8 
150 IF NN > 22 THEN VTAB NN - 21: POKF 

1403,47 
160 RETURN 

170 REM PR0GRAM1E PRINCIPAL - 

180 LP = PEEK (923); FOR I = 1 TO LP;X = 
PEEK (923 + I):PG* = PG* + CHR* 
<X): NEXT 
190 ONERR GOTO 30 

200 IV/* = CHR* (15):NC* = CHR* ( 1 4 ) : B* 

= CHR* (7):R* = CHR* < 13) 
210 D* = CHR* <4): REM Ctrl-D 
220 N = 105: DIM A*(N),F*(N) 
230 l/TAB 10: PRINT "Inserez votre disque 
tte f ichier puis donnez le n" de 1 
ecteur: ■;: GET 2*:LE = (Z*): 
IF LE < 1 OR LE > 2 THEN PRINT B 
*; GOTO 230 
240 ER = 0: POKE 8,LE: POKE 790, LE: CALL 

779: REM Lecture du VTOC par RUTS 
250 ER - PEEK (801); POKE 801,0: I P ER = 
64 THEN PRINT : POKE 222,8: GOTO 
30 

260 DOS = PEEK <8195): IF DOS < > 3 THE 
N VTAB 15: PRINT B*BS'SEULES LES 

OISQUETTES FORMA TTEES SOUS MU'OO 
S 3.3'NO*" SOriT ACCEPTEES. ■ ! FOR I 

= I TO 2000: NEXT : TEXT : HOME : 

PRINT WRUN MENU , D 1 ■ 

270 REM Affichage catalogue 

280 HOME :A - FRE (0):A* » i FOR I = 

1 TO 19;A* ■ Al ♦ " "l NEXT i FOR 
I = N TO 1 STEP - 1 :A*( I ) = A* + 
A*: NEXT :A*(0) - A* + mm tA = PEE 
K <107) + PEEK (108) * 256 + 8: P 
OKE 254, PFFK (A): POKE 255, PEEK 
<A ♦ 1> 

290 PRINT K*D*'NOMONCI0 B : POKE 54,42: PO 
KE 55,3: POKE 56,60: POKE 57,3: CA 
LL 1002: PRI NT D* ■ CATALOG , D" LE : PR 
INT W'PRfO': PRINT D$MN£0' 
300 FOR 1 = 1 TO N: IF MID* (A*(J),2,1> 

< > ' ■ THEN NF = NF + 1 : NEXT 
310 KT = NF : TS = PEEK (11): I F TS < > 1 
THEN 340 

320 KT - 0: FOR I = 1 TO NF : I F MID* <A* 

(I), 2,1) = CHR* (212) THEN KT = K 

T + 1 :A*(KT) = A*< I) 
330 NEXT 

340 SL = PEEK (6) + 256 * PEEK (7) 
350 PRINT D4'PR£3- 

360 IF KT = THEN PRINT B**Erreur; f 1 
n'y a pas de fichier texte sur cet 
te disquette.': GOTO 230 

370 PRINT TAB( 28) IV*" CATALOGUE "NO*- 
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"IWJFjNOi 1 flchlers "IV*S 
L;NW secteurs libres": PRINT j P 
OKE 34,1 

380 VTA 8 24: PRINT IV*" — > , < — , D(*but 
, F<in, S<uite, P<rec4dent #cran 
- choix f ichier : ' Re turn ' "NO* ; 
390 POKE 35,23: HOME 
400 10 = :W = 1 :NF = KT 

410 NL = NF - 10 3 IF NL > 22 THEN NL = 22 
420 FOR I = 1 TO NLill = I ♦ 10: VTAB I 
+ 1 

430 POKE 1403,0: IF 10 - 22 OR 10 - 66 T 

HEN POKE 1403,40 
440 PRINT LEFT* (A*(II),7); 
450 F*(II> - MID* <A*CII> ,8,30> : PRINT F 

*<II>1 
460 NEXT 

470 IF 10 = 22 OR 10 = 66 THEN 10=10- 

22: GOTO 510 
480 IF NF - 10 < 23 THEN 510 
490 NL = NF - 10 - NL : IF NL > 22 THEN NL 

- 22 

500 10 = 10 + 22: VTAB 2: GOTO 420 
510 r*J - 1 : VTAB 2: KTAB 8: PRINT IV*F*(N 
N + I0)NO* 

520 REM Choix utilisateur 

530 POKE - 16368,0 

t>40 X = PEEK ( - 16384): IF X < 128 THEN 





540 






550 


IF X = 


136 THEN GOSUB 


710 


560 


IF X = 


138 THEN GOSUB 


680 


570 


IF X = 


139 THEN GOSUB 


660 


580 


IF X - 


141 THEN 840 




590 


IF X = 


14? THEN GOSUB 


730 


600 


IF X > 


224 AND X < 251 


THEN X = X - 




32 






610 


IF X = 


196 THEN GOSUB 


770 


620 


IF X = 


198 THEN GOSUB 


780 


630 


IF X = 


208 AND 10 > THEN 830 


640 


IF X = 


211 AND NF > 10 


* 44 THEN 800 



650 GOTO 530 

660 IF NN ° I THEN 820 

670 MV = - 1 :NI = 22 : PV = 23:PH - 7: 60S 

UB 90 : RETURN 
680 IF W = NF - 10 THEN RETURN 
690 IF NN = 44 THEN X = 211: RETURN 
700 rIV = UNI = 23;PV = 2;PH = 47: GOSUB 

90: RETURN 
710 IF W < 23 THEN RETURN 
720 MV = - 22:NI = 0: GOSUB 90: RETURN 
730 IF NN > 22 THEN RETURN 

740 IF NF - 10 < 23 THEN RETURN 
750 MV = 22: I F r*4 + MV > NF - 1 THEN R 
ETURN 

760 Nl = 0: GOSUB 90: RETURN 

770 !~Pv> = 1 - W:NI = 0: GOSUB 90: RETURN 

780 MV = NF - - 10: I F NF > 44 + 1 TH 

EN MV • 44 - ^ 
790 NI = : GOSUB 90: RETURN 
8Q0 IF 10 > 66 THEN 530 
810 10 = 10 + 44: HOME : GOTO 410 
820 Ir 10 = U 1 HEN RETURN 
830 10 = 10 - 44: HOME : GOTO 410 
840 h*J = ♦ 10: POKE - 16368,0: TEXT : 
HUME 

850 FOR I = LEN (F*<NN>) TO 1 9TEP - 1 
: IF MID* (F*(hN),I,l) < > CHR* 
(160) THEN LP = 1: POKE 923, LP: G 
OTO 870 

860 NEXT 

870 FOR 1=1 TO LP: POKE 923 ♦ I, ASC < 

MID* ( F* ( M*J ) , I , 1 ) ) : NEXT 
880 IF LE - 1 THEN PRINT : VTAB 12: PRI 
NT "Inserez la disquette programme 

65 



en Dl puis fait*s 'Return'*;; GET 
2* 

890 PRINT R%0% * RUN "PGS'.Dl" 



Programme DEMO 

10 M = CHR* <4>:B* = CHR* <7> 
20 ONERR GOTO 40 
30 GOTO 120 

40 CALL 748: POKE 214,0 

50 Y m PEEK (222)! IF IP = 2 THEN PRINT 
D$ , PR£0" 

60 PRINT D*'CLOSE »Pl*i ONERR GOTO 40 
70 IF Y = 5 THEN INVERSE : PRINT "FIN D 

E FICHIER-: NORMAL :F = li GOTO 28 



80 IF Y = 6 AND F = 1 THEN HOME : PRINT 
B* B Erreur: ce n'est pas la disque 
tt* programme! ■« PRINT :NL = 1: GO 
TO 280 

90 IF Y - 6 THEN PRINT B*"Erreur: 1e *i 
chier "FI*: PRINT "n'est pas sur c 
ette disquette.": GOTO 160 

100 IF Y = 8 THEN HOME i PRINT WFerme 
z la porte du lecteur de d i sq . SVP ! 
■;: GET ZS: PRINT : RESUME 

1 10 HOME : GOTO 280 

120 LP = PEEK <923)- FOR I ^ 1 TO LP:FI* 
= FI* ♦ CHR* < PEEK <923 * I)>: 
NEXT 

130 COL - PEEK (9):IP = PEEK (10): IF I 

P - 2 THEN COL - 40 
140 IF COL = 40 THEN PRINT CHR* <12>; 

CHR* (21): REM Desactive carte 

80 col . 

150 HOME : HTAB INT <(C0L - 9 - LP) / 2 
>: IhrVERSE : PRINT ■ FI CHI ER "FI*: 
NORMAL s POKE 34,1 

160 NL = PEEK <8): PRINT ! IF NL = I THE 
N PRINT Mnserez la disquette *ic 
hier en D"NL: PRINT "puis appuyez 
sur 'return": GET Z*: PRINT 

170 PRINT D*"UERIFY"FI*",D"NL 

180 IF IP = 2 THEN PRINT "Irnprimante pr 
ete GET Z*: PRINT : PRINT D*" 

PR£1 ■ 

190 PRINT : HOME : PRINT D»- OPEN" FI»" , D" 
NL 

200 PRINT D*" READ" FI* 

210 & INPUT A»: PRINT A*! IF PEEK <37) 

< 22 OR IP = 2 THEN 210 
220 PRINT D»j INVERSE 3 PRINT " ' RETURN' = 

CONTINUER OU " E5C=ARRETER : " ; : NO 

RMAL 

230 POKE - 16368,0 

240 Z = PEEK < - 16384): IF Z < 128 THEN 
240 

250 IF 2 = 155 THEN PRINT iF = liY = Oi 
GOTO 60 

260 IF Z = 141 THEN PRINT : HOME : GOTO 
200 

270 GOTO 230 

280 POKE - 16368,0? IF NL = 1 THEN PRI 
NT "Inserez di squette programme en 

Dl puis •;: IF COL = 40 THEN PRI 
NT 

290 PRINT "RETURN' pour revenir au menu 

■;: BfcT Z%t PRINT 
300 IF PEEK < - 16353) < 128 THEN PRIN 

T D*"PR£3 a : REM Si 80COL pas e 

n function, le commuter 

310 TEXT : PRINT 0*'RUN MENU ,01" 
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AD 


(in 


L/U 


RD 


02E0- 


Dl 

A 


02 


AD 


00 


D4 


8D 


D2 

AX 


02 


02E8- 


AD 


00 


D8 


8D 


D3 


02 


AD 
1 1 ix 


81 


02F0 — 


CO 


AD 


81 


CO 


AD 


t—f > 


■ i. > 


C9 


Q2F8- 


6 


DO 


49 


AD 


1 7 


CO 


"30 

wU 


3C 

WW 


0300- 

W V w 


AD 


1 3 


CO 


30 


27 


AD 




CO 


0308— 

\j w yj u 


30 




AD 


7A 


RF 
t_> t — 


A7 




R9 


0310- 





00 




00 




A7 


U ■-' 




0318- 


DO 


F2 
* 


4C 


1 


00 


08 


AO 


2A 


0320- 


B9 


A2 


03 


99* 


00 


00 


88 


DO 

IX u 


0328- 


F7 


6B 


B0 

* — w 


08 


A9 


80 


8D 


CF 


0330- 


03 


4C 


49 

* * 


03 


A9 


40 


8D 


CF 


0338- 


03 


4C 


49 


03 

w W" 


A9 


20 


8D 


CF 


0340- 


03 


4C 


49 


03 


A9 


00 


8D 


CF 


0348- 


03 


AD 


00 


E0 


CD 


DO 


02 


DO 


0350- 


1 8 


AD 


00 


DO 


CD 


Dl 


02 


DO 

IX V 


0358— 


1 


AD 


00 


D4 


CD 


D2 


07 

U £ 


nn 

LXU 


0360- 

W W ' — ' w 


08 


AD 


00 


D8 


CD 


D3 


02 


F0 


W w W \J 


38 


AD 


88 


CO 


AD 


00 


EO 


CD 

wlX 


0370- 


DO 


02 


FO 


0<4 


AD 


OU 


rn 

' — u 


4P 


0378- 

W w 1 W 


Al 


03 


AD 


on 


on 


CD 


Dl 

W A 


n? 

U 


0380- 

W W^J w 


F0 


06 


AD 


80 


CO 


4C 

— w 


Al 

« • A 


03 

w W 


0388— 


AD 


00 


D4 


CD 


D2 


07 


F0 


06 


0390- 


AD 


80 


CO 


4C 


Al 


03 

U w 


AD 
i i ix 


00 

u u 


0398- 


D8 


CD 


D3 


02 


FO 


03 


AD 


80 

w W 


u onu 


rn 


i- o 


OU 


AO 


cp 

cc 


OL/ 


U tj 


rn 

wU 


0*^8— 
u wr-IO 


on 


w O 




fir> 
Ol/ 


n n 
u u 


n p. 
u o 


xs r> 


nn 


03B0- 


oc 


C9 


EE 


DO 


0E 


0E 


00 


oc 


03B8- 


AD 


00 


08 


CD 


00 


OC 


DO 


03 


03C0- 


38 


B0 


01 


18 


8D 


04 


CO 


8D 


03C8- 


02 


CO 


4C 


ID 


03 


EA 


00 


39 



ROUTINES 

*300 .39B 



0300- 


6e 


A8 


68 


A6 


DF 


9A 


48 


98 


0308- 


48 


60 


00 


A9 


03 


AO 


14 


20 


0310- 


D9 


03 


60 


00 


01 


60 


02 


00 


0318- 


1 1 


00 


25 


03 


00 


20 


00 


00 


0320- 


01 


00 


FE 


60 


02 


00 


01 


EF 


0328- 


D8 


00 


38 


48 


84 


FD AO 


00 


0330- 


91 


FE 


E6 


FE 


DO 


02 


E6 


FF 


0338- 


68 


A4 


FD 


60 


A9 


AO 


60 


00 


0340- 


A9 


4C 


8D 


F5 


03 


A9 


50 


8D 


0348- 


F6 


03 


A9 


03 


8D 


F7 


03 


60 


0350- 


C9 


84 


FO 


03 


4C 


91 


03 


20 


0358- 


Bl 


00 


20 


E3 


DF 


20 


6C 


DD 


0340- 


85 


85 


84 


86 


20 


6F 


FD 


8A 


0368- 


F0 


IE 


BD 


FF 


01 


C9 


83 


F0 


0370- 


1A 


BD 


FF 


01 


29 


7F 


9D 


FF 


0378- 


01 


CA 


DO 


F5 


A9 


00 


AO 


02 


0380- 


A2 


8D 


20 


E9 


E3 


20 


9A 


DA 


0388- 


A2 


00 


60 


20 


3A 


FF 


4C 


DO 


0390- 


03 


20 


84 


FE 


20 


2D 


FF 


4C 


0398- 


DO 


03 


FF 


02 
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Recherche dans un tableau 

Jean et Patrice Neveu 



Voici un petit programme ecrit en as- 
sembler, d'une grande utilitd. qui 

vqus interessera sans doute. II per- 
met de rechercher dans un tableau 
de chaines. les chaines comportant 
un mot ou groupe de slgnes alpha- 
numeriques particulier. La reponse 
est fournie "instantanement". 

Programme de demons- 
tration 

- II charge le sous proqramme en 
langage machine RECHERCHE 
OBJ. 

- 11 cree un tableau A$ de 500 
groupes de F> lettres choisies aleatoi- 
rement, precedant les numeros d'or- 
dre (ce tableau peut etre plus impor- 



tant et occuper toute la memoirp 
disponiblc. Dans cc cas il serait bon 
d'ddjoindre le "FREE" rapide. pro- 
pose dans Pom's 2. afin d'arrelerer 
le chargcrnent du tableau). 

- 11 demande I'expression a recher- 
cher Cette expression peut &tre plus 
grande que les chaines stockees et 
peut comporter des siqnes pour 
remplacer les lettres inconnues. 

11 stocke a partir de Fadresse 
$9500 I'expression a rechercher. 

- II stocke a I'adresse $0A la lon- 
gueur de I'expression a rechercher. 

- II appelle la routine assembleur si- 
tuee en 768 ($300). Cette routine at 
fiche alors toutes les chaines conte- 
nant I'expression. 



- Pour une nouvelle demande ap- 
puyer sur une touche. 

- Pour sortir, appuyer sur RETURN 
lorsqu'une nouvelle expression est 
demandee. 

Le tableau A$ a ete choisi arbitraire- 
ment. Si pour des raisons specifi- 
ques, la recherche se faisait dans 
d'autres tableaux, il suffirait de 
POKEr les adresses $301 et $305 
pour initialiser le nom du tableau 
concerne (code ASCII de la premiere 
lettre en $301, code de la deuxieme 
lettre + $80 en $3(J5). 

La routine Recherche Text a ete 

assemblee a Taide de LISA 2.5. Les 
notes figurant sur le listing en expli- 
quent le deroulement. ■ 



Programmme RECHERCHE DEMO 

1 REM RECHERCHE DEMO 

? REM LE 16 A0UT 1994 

3 H I MEM : 3G144 

4 TEXT : POKE 33,40: HOME : INVERSE : HT 

AS 14: PRINT " RECHERCHE DEMO" : NOR 

MAL : POKE 34,5 
6 PRINT CHR* <4)"BL0AD RECHERCHE OBJ" 
10 PRINT : PRINT " PAT I ENTEZ CrUELQUES INS 

TANTS S.V.P.JE CREE 300 CHAINES 

ii 

100 DIM A*( 500): FOR I = TO 500: FOR J 
- 1 TO 5: At = A* t CHR* < 65 + R 
NO (1) * 2£>: NEXT :A*<I) = A* ♦ " 

" * STRS <I>«XX - PEEK < - 1433 



+ PEEK < - 1*326) :A* = " " : NEX 

T 

105 VTAB 15: HTAB 34: PRINT " 'CR' 

POUR 

ARRETER" : POKE 33,33 

1 1 HOME 

310 INPUT "EXPRESSION A RECHERCHER ? » ;A 

315 IF A* ■ THEM 400 

320 FOR I = 1 TO LEN <A*>: POKE 33143 f 

I, ASC C MID* (M,l,i>>8 NEXT 

330 POKE 10, LEN (A*) 

340 CALL 768 

350 GET l%\ PRINT : GOTO 310 

360 END 



Source Lisa 2.5 

Programme RECHERCHE TEXT 



i 

2 
3 



$ 



UK* **Q0 
EPZ %6 
DE LA VARIABLE 

EPZ %7 
DE LA VARIABLE 
EPZ *3 

TABLEAU 
49 

TABLEAU 
$A 

RECHERCHEE 



iu 



11 



12 



NOM I 

ETTRE 
NUM2 

ETTRE 
ADTABB 

E BASSE DU 
ADTABH EPZ 

E HAUTE DU 
LONG EPZ 

R DE LA CHAIME 
ARYTAB EPZ tc-B 

EMENT DE L'ADPESSE 
LTB EPZ *18 

UR TABLEAU BAS 
LTH EPZ $1? 

UR TABLEAU HAUT 
NELEMH ' EPZ *E8 
D' ELEMENTS DAMS 

MELEMB EPZ *EC 



;1ERE L 
RECHERCHER 

; 2EME L 

RECHERCHER 
; ADRESS 

; ADRESS 

; LONGEU 



; EMPLAC 

DU TABLEAU 

; LCNGUE 

; L ON CUE 



TABLEAU 



jMQMBRE 
HAUT 

;MOMBRE 



13 

!4 

15 

16 

17 

IS 
19 
20 
21 
22 

23 
24 

25 
26 
27 

23 

29 



D r ELEMENTS DANS TABLEAI. 


BAS 


LGELEM EPZ *1D 


; LONGUE 


UR DE L' ELEMENT 




ADELEB EPZ £1E 


; ADRESS 


E DE DEBUT DE L y ELEMENT 


BAS 


ADELEH EPZ S1F 


;ADRESS 


E DU DEBUT DE L' ELEMENT HAUT 


CELEM EPZ *CF 


j COM PTE 


UR ELEMENT 




CLET EPZ *CE 


;COMPTE 


UR DE LETTRE 


1 


LGELM1 EPZ SED 




ADELB1 EPZ SEE 




ADELH1 EPZ *EF 




INUFLG EPZ £32 




COUT EQU >FDED 


; AFF I C H 


AGE DES LETTRES 




GROUT EQU 5FDSE 


; RETURN 


STOCK EQU *9500 


; CHAI NE 



A RECHERCHER STOCKEE EN S9500 



; PROGRAMME DE RECHERCHE 
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30 
31 
32 
33 
34 
35 
36 
37 
38 
3? 
40 
41 
42 
--13 
44 
45 
46 



;POUR UN TABLEAU DE CHAINE AS 
;AVEC SEULEMENT 1 DIMENSION 
i 

LDA tt*41 
ST A NOMi 
LDA ft* 80 
ST A N0M2 

•ADRESSE DU DEBUT DES TABLEAUX 
! 

LDA APYTA6 
STA ADTABEf 
LDA ARYTAB+ 1 
STA ADTABH 

; VER I F I CAT I ON DU NOM 



47 


NOM 


LDX 


HO 


43 




LDA 


(ADTABB ,Xi 


4? 




CMP 


NOM1 


50 




BNE 


LGTAB 


51 




LDY 




52 




LDA 


< ADTABB) f Y 


53 




CMP 


N0M2 


54 




BEO 


NBELEM 


55 


i 






56 


; LONGUEUR DU 


TABLEAU 


57 








58 


LGTAB 


I NY 




5? 




LDA 


(ADTABB) ,Y 


60 




STA 


LTB 


61 




I NY 




62 




LDA 


cadtabb; ,y 


62 




STA 


LTH 



64 

65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
7? 
30 
91 
32 
S3 
34 
35 
36 
37 

as 

3? 

90 

91 

92 

93 

94 

95 

96 

97 

93. 

99 

100 
101 
102 



i 

; CALCULE ADRESSE NOUYEAU TABLEAU 

LDA ADTABB 
ADC LTB 
STA ADTABB 
LDA ADTABH 
ADC LTH 
STA ADTABH 
JMP NOM 

jNOMBRE D J ELEMENTS DANS TABLEAU 

! 

NBELEM LDY tt*5 

LDA (ADTABB) ,Y 

STA NELEMH 
I NY 

LDA (ADTABB) ,Y 

STA NELEMB 

JENLEVE 1 AU COMPTEUR CAR VA 

; JUSQU'AU NUMERQ . . . 

i 

CLC 

DEC NELEMB 
ecc CONT 
CLC 

DEC NELEMH 



! 

CONT 



EQU * 



; DEPLACE L'ADPESSE TABLEAU 
;AU DEBUT DES ELEMENTS 

; 

CLC 

LDA ADTABB 
ADC tt*7 
STA ADTABB 



103 
104 

105 

106 
107 
103 
109 
110 
1 1 1 
112 
113 
1 14 
1 1 5 
1 16 
1 1 7 
1 1 8 
1 19 
120 
121 
122 
123 
124 
1 25 
126 
127 
123 
129 
1 30 

131 
132 
133 
134 
135 
136 
137 
133 
1 39 
1 40 
141 
1 42 
143 
144 
145 
146 
147 
143 
149 
1 50 
151 
152 

153 

154 

155 
I 56 

157 
153 
159 
160 
161 
162 
163 
1 64 
165 
1 66 

167 
1 08 
169 
170 
171 
172 



; LONGUEUR DE L" ELEMENT 
* 

LONGE LDY ***0 
LONG EL LDA (ADTABB) ,Y 
STA LGELEM 

; 

; ADR ESSE DEBUT DE L ' ELEMENT 
I NY 

LDA (ADTABB) ,Y 
STA ADELEB 
I NY 

LDA (ADTABB) ,Y 

STA ADELEH 
I NY 

LDA (ADTABB) 
STA LGELM1 

■ 

I NY 

LDA (ADTABB) ,Y 
STA ADELB1 

I NY 

LDA (ADTABB) ,Y 
STA ADELH1 

; DEPLACE ADRESSE DEBUT ELEMENT 

CLC 

LDA ADTABB 
ADC #**3 
STA ADTABB 
BCC CONTl 
INC ADTABH 

| LECTURE DES ELEMENTS 

CONTl EQU * 

r 

jUERIFIE SI L ' ELEMENT EXISTE 
• 

LDA LGELEM 
BEQ EL EM 

* 

; RECHERCHE LA CHAINE STOCKEE EN 
; $300 DANS LA CHAINE EN QUESTION 



LDY «40O 
UR DANS LE MOT CIBLE 
LDX «*0O 

UR DANS LE MOT RECHERCHE 

COMP LDA STOCK, X 

CMP " = 
ERE GENERIQUE 
BhQ BUN 

CMP C ADELEB) P Y 

BNE PLULOIN 
BON 1NX 

CPX LONG 

DCS EDI T 1 
I NY 

CPY LGELEM 

BCS EL EM 

JMP COMP 



;COMPTE 

; COMPTE 

ICAPACT 



PLULOIN 



I NY 

CPY LGELEM 
BCS ELEM 
LDX «*00 
JMP COMP 
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173 

174 

175 

176 

I 77 

1 73 

1 7? 

ISO 

1S1 

182 

133 

134 

135 

1 34 

13S 
139 
190 
191 
192 
193 

194 



i 

;STOCKE LE COMPTEUR DE LETTRES 



EDI Tl 
EDIT 



LDY ttfOO 
STY CLET 



;LIT LA LETTRE 

LDA CADELEPO ,Y 

jAJOUTE *80 AU CODE ASCII 
;POUR E^ITER LE FLASH 

CLC 

ADC #*30 

fEWOIE AU SOUS-PROGRAMME AFFICHAGE 

! 

.ISR COUT 

JINCREMEMTE Lfc COMPTEUR DE LETTRE 



195 
196 

197 
193 
199 
200 
201 
202 
20 3 
204 
20 5 
206 

20 7 
203 
209 
210 

21 1 
212 
213 
214 
215 



LDY CLET 
I NY 

UERIFIE SI DERNIERE LETTRE 

CPY LGELEM 
BEQ ELEM1 
JMP EDIT 

■ 

; PASSE A L ' ELEMENT SUI'.'AMT 



EL EMI 
EL EM 



LGEL 
FIN 



JSR 
LDA 
BNE 
LDA 
BEG 
DEC 
DEC 
JMP 
RTS 
END 



CROUT 

NELEMB 

LGEL 

NELEMH 

FIN 

NELEMH 
NELEMB 
LONGE 



RECHERCHE OBJ 



«3O0 .300 

0300- A? ^1 S5 06 A 9* 30 85 07 

0303- A5 dB 35 09 A5 6C 35 09 

0310- A3 00 Al 03 C5 06 DO 03 

03LS- AO 01 Bl 03 C5 07 FO 1A 

0320- C3 Bl 03 85 12 C3 Bl 02 



0323- 35 19 13 A5 03 65 13 35 

0330- 03 A5 09- 65 19 35 09 4C 

0333- 10 03 AO 05 Bl 03 35 EB 

0240- C3 Bt 03 35 EC 13 C6 EC 

0343- ?0 03 13 C6 EB 13 A5 03 

0350- 69 07 35 03 AO 00 81 08 

0353- 35 ID C3 Bl 03 35 IE C3 

0340- Bl 03 35 IF C3 Bl 03 35 

0363- ED C3 91 03 35 EE C3 Bl 

0270- 03 95 EF 13 A5 03 49 03 

03-3- 35 03 90 02 E6 09 AS ID 



390- FO 3F AO 00 A2 00 60 00 

0339- 95 C9 30 FO 04 01 IF DO 

03*0- 00 E3 E4 OA 80 12 C3 C4 

0393- ID SO 26 -\C 36 03 C3 C4 

03AO- ID BO IE *2 00 4C 3* 03 

03A3- AO 00 34 CE Bl It 13 69 

03B0- 30 20 ED FD A4 CE C3 C4 

03B3- ID FO 03 4C AA 03 20 3E 

3C0- FD AS EC DO 06 A5 €& FO 

03C3- 0? C6 £3 C6 EC 4 C 54 03 

0300 - 60 



63b m.b.d.c. i 



informatique tel. 20.74.84.00 calvados 1061 




• 32, RUE LEPELLETIER. LILLE 

PARKING .LATREILLE. 

ETUDES, CONSEILS, MISES EN PLACE 
FORMATION SUR MA TF.RIELS ET LOG1CIELS 

S.A.V. ET LOCATION 



CONCESSIONNAIRE 



gcippkz 



• 21, RUE BASSE. LILLE 

PARKING «LA TREILLE. 

TOUTES LES FOURNITURES ET 
ACCESSOIRES POUR VOS MATERIELS 



OUVERT DU MARDI AU SAMEDI DE 9H a 12H et de 14H a 19H 
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Micro-Informations 

Jean-Michel Gourevitch 



L'Apple tie dcvient un Apple tJc; 
Comme Pom's Tavait annonce a ses 
lecteurs dans son numSrb 16. le 
65C02 devient dorenavant le stan- 
dard de la famille Apple ft, A partir 
du mois de mai. les nouveaux Apple 
//g vendus, integreront le processeur 
65C02. qui 6quipait deja le He, et 
des ROMs supplementaires (notam- 
ment un nouveau jeu de caracteres 
tomprenani les caracteres souris et 
un moniteur assurant la gestion des 
fencrrcs et du curseur). Un kit vendu 
rnolns de 1000 francs permettra aux 
possesseurs ri'anripns ffe de les met- 
tre a niveau. A premiere vue. it s'agil 
done bien d'un abandon de ce qui 
etait jusqu'alors le standard dp I'Ap- 
ple //c. Devant le dilemne du pro- 
cures, la firme de Cupertino a du 
abandonner un pen de terrain au 
chapitre de la compatibilite. 
Ainsi. les programmes qui toumaient 
diffirilpment (ou pas du tout) sur le 
He ne tourneront, helas, pas mieux 
sur le nouveau /e; aucun "switch" 



ne permet de selectlonner un mode 
ou I'autre. 

Toutefois. on precise chez Apple que 
les inHerarinables du He pourront 
laisser en place I'ancienne ROM de 
caracteres, tout en chanqeant les 
autres: rien n'empeche de program- 
mer une ROM contenant les deux 
jeux de caracteres qui seraient alors 
modifiable* par logieiel 

La seconde nouveaute conccrnant 
I' Apple He etait annoncee dans le nu- 
mero 17 de Pom s. 11 s'agit du chan- 
gement du clavier. Le nouveau He 
beneficie done d"un clavier compara- 
ble a celui du He, Ainsi. lorsqu'on en- 
clenche la touche "Majuscules", on 
peut. comme sui une machine a 
eenre standard, taper directement les 
chiffres Techniquement, le shift lock 
est remplaee par un caps lock 
D autre part, le nouveau clavier du 
e n'est plus QWERTY. Sous le cla- 
vier de Fancieri He, un interrupteur 
permettait d'obtenir a gauche, un 



clavier frangais aux touches AZERTY. 
et a droite. un clavier QWERTY. Cet 
interrupteur existe toujours sur le 
nouveau fie, Mais lorsqu'on le bas- 
cule vers la droite. on obtient seule- 
ment les caracteres du genre "[" ou 
T\ impossibles a obtenir en frangais. 
Les amateurs de jeux americains 
dont les commandes sont disposees 
au clavier, selon un ordre pratique, 
apprecieront. 
Un exemple 

Sur le simulateur Flight Simulator II. 
la touche "<" pennel de teylei Id 
valeur d un instrument a la baisse. et 
">'* d'augrnenter la valeur. Sur le 
clavier americain. ces touches sont 
voisines. Sur un clavier AZERTY. il 
faut a chaque fois actionner la tou- 
che majuscule puui passer du "<" 
au > ". 

Pourquoi donr ces modifications ? 
Porce qu' Apple souhaite la standar- 
disation, et la firme de Cupertino 
voudrait encourager les auteurs de 



Computer 3 

3. rue Papillon 75009 Palis - Tel. 523.51.15 




BON de 
C0MMANDE 



Alimentation 600 Porl 30 □ 

Boitier et clavier 755 

Clavier detachable (type MAK 2) 1200 

Clavier detachable (STAFF) 1 100 



Moniteur 12" vert 950 

Moniteur couleyr , 2 900 

Base orlentable pour moniteur 199 

Lecteur disquettes 5' 1 /4 distai 1 450 

Controleurde drive 370 

Carte langage 16K RAM 400 

Carte 128 K RAM 1550 

Carte Z 80 CP/M 320 

Carte 80 colonnes (Inverses et majuscules) 640 

Carte couleur RVB (2+) 950 

Carte couleur RV0(2e) 1 380 

Carte 80 col +- 64 K (2c) 600 



35 a 
30 □ 

30 n 

100 □ 
100 □ 

30 □ 



en 



45 

18 
18 
20 
18 



18 

18 a 

18 □ 
18 □ 



Carte imprimante 
Carte Grappler 



Carte Modem integre 



Carte Horloge 

Joystick Metal 2 +, 2e-2c (preciser) 



Disquettes SF/DO la boite de (10) 

Disquettes SF/DD 10 boltes de (10) la bo 
Boite de rangement pour 100 disquettes . 



380 


Port 20 □ 


475 


20 czi 


1350 


20 CZD 


495 


20 CZI 


950 


25 □ 


1085 


30 □ 


400 


20 □ 


320 


20 □ 


500 


20 □ 


165 


23 O 


280 


23 □ 


50 


18 □ 


49 


18 CZ) 


69 


20 [ZD 


e 85 
199 


40 O 


20 n 



NOM: .... 

PRENOM: 

ADRESSE: 



CODE POSTAL: TELEPHONE: 

P 18 



REGLEMENT PAR:CCP 

CHEQUE BANCAIRE 

CARTE BLEUE 



□ 
□ 

□ 



N° 

UAIh D'EXPIRATION 
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logiciels a rccounr a I" arsenal des 
menus rieroulants. fenetres. et icdnes 
en vigueur sur le Macintosh. Les 
nouvelles ROMs et le 65C02 permet- 
tront aux urilisateitrs de booter 
dcpuis un disque dur. d'ecrire des 
programmes Baste en minuscules et 
majuscules, d'utiliser un code plus 
serre. tout en utilisant les multiples 
fenetres, et un meilleur controle du 
curseur Reste a voir si eela sera suf- 
fisant pour dissuade r les develop- 
peurs d' abandon ner le fJe pour le 
Mac. En attendant, les nouveaux 
programmes ne sont pas legions. 

Une vieille connalssance 

C'est I'AppleWriter V qui nous re- 
vient de loin. Fonctionnanf sous 
ProDOS, il pcut desormais beneficier 
du disque dur. II permet d'ecrire un 
texte dans n'importe quel ordre, de 
le memoriser par paragraphe et de 
rimprimer dans 1'ordre choisi. 
Grace a un module de communica- 
tions, on pcut recevoir des donnees 
d'une messagerie, ou d'un autre 
Apple, et les integrer Hans un texte II 
est distribue par Apple pour moins 
de 1800 francs. 

Toujours distnbue par Apple, le 
niban a trois couleurs superposables 
offre a Pimprimante Scribe, une im- 
pression en couleurs avec notam- 
ment les logiciels Daz2le Draw. Koala 
Pad, ... Un ruban devrait suffire pour 
imprimer une dizaine de pages en 
mode graphique. Son prix est de 72 
francs. 

Devine quoi diner 

Random Dining de Solitaire genere 
une serie de menus (3 repas par jour 
pendant un maximum de 31 jours), 
et fournit la liste des ingredients. Un 
seul petit probleme : c'est au gout 
americain ! 

Un autre programme : The Ultimate 
Shopping Machine est fourni en 
prime et permet d'obtenir une liste 
Imprimee des courses a effectuer au 
supermarche Vous pouvez vous pro- 
curer T ensemble pour 50 dollars. 

Un copfceur conforme 

C'est la version 5.0 de Copy II plus 
de Central Point. Un bircopieur auro- 
matique capable de surmonter quel- 
ques systemes de protection. Les pa- 
ramdtres sont stockes sur le disque. il 
suffit dc taper le nom du programme 
pour lui adapter les parametres. 
Combien de temps faudra-r-il pour 
qye les logiciels lui resistent et que 
Central Point sorte une nouvelle revi- 
sion de Copy II plus ? Cette nouvelle 
version vaut 40 dollars. 

CP/M pour le lie 

C'est aujourd'hui possible grace au 
Z80c d'Applied Engineering. Un mo- 
dule qui s'installe a Tiiiteiieui d'un 



ordinateur qu'on croyait pourtant 
"ferme". II pcut profiter des 128 Ko 
de I'ordinateur. ou n'en utiliser que 
64, en reservant le reste comme 
RAM disk. II est livre avec la version 
4.0 de CP/M. le Z80c, toute, outre 
Atlantique 160 dollars. 

De la memoire 

Combien vous en faut-il ? Un me- 
gaoctet vous suffiraii-il ? Alois, la 
carte RamWorks d'Applied Enginee- 
ring est pour vous. Celle-ci sera no- 
tamment reconnue par Appleworks, 
Advanced VIsicalc. RashCalc. et bien 
d'autres. Elle accelere la vitesse 
d'execution des programmes, Poui 
1200 dollars, on en attendait pas 
moins ! 

Un jeu dc cartes. 

Trois cartes en une. qui dit mieux ? 
C'est la Business Card de Street 
Electronics Elle regroupe deux inter- 
faces series (pour disposer a la fois 
de fimprimante et du modem), une 
carte horloge. et des possibilites de 
recopie automatique d'ecran graphi- 
que. Elle est compatible avec Apple- 
Works. Apple Access'/, et surtout 
avec MousePaint (les speciolistes ap- 
pn5cieront : c'est le programme le 
plus difficile a interfacer avec une im- 
primante). la Business Card coute 
moins de 200 dollars. 

Un vrai clavier. 

Pas besoin d'acheter un nonvel 
Apple 1 e pour avoir le clavier vendu 
par Pentas-onic. 78 louches dont un 
vrai pave numerique. les majuscules 
et minuscules comme sur une ma 
chine a ecrire (la louche CAPS 
LOCK dispose du voyant LED qui 
fait tellement defaut sur F IBM), les 
fonctions Pomme Ouverte et Fer- 
mee. et Tauto-test propres aux 
Apples : quel luxe ! Et en plus, il est 
inclinable pour un prix de 1273 
francs. 



Et le Mac ? 

Compatible avec 1'Apple IJ % compati- 
ble avec riBM, accedant, grace au 
menu pomme. an multi-tasking r est 
vraiment la fete de Macintosh. 

Mac = Apple // 

Pendant que certains developpeurs 
essaient de transformer 1* Apple II en 
Macintosh. David Hemmo a reussi a 
transformer le Mac en un Apple. Un 
Apple 11+ pour le moment Suppor- 
tant done seulement 48 Ko de me 
moire et des programmes en DOS 
3.3. GrSce a David Hemmo. le pro- 
ccsseur 68000 du Mac. emule le 
6502 de son cadet. Une prochalne 
version permettra de beneficier du 
ProDOS et des caracteristiques (et 
surtout des programmes) du e. Ima- 



ginez qu'on peut recuperer les dis- 
quettes du '/ sur les disquettes 3.5 
pouces du Mac. C'est assez simple : 
on charge le logiciel dans I' Apple 11. 
on relie le Macintosh a P Apple II par 
la sortie RS 232 (serie) ieliee a Pen- 
tree Modem du Mac. puis on trans- 
fere les programmes. II ne reste plus 
qu'a les enregistrer sur une disquette 
de 3.5 pouces. tnsuite. on pourra 

"jouer" ces logiciels sur le Macintosh. 
II paratt que Steve Jobs avait jure 
que la chose etait impossible... 

Mac = IBM 

Cette fois. c'est en IBM que le Mac 
se transforme grace a Mac Charlie de 
Dayna Communications. "Etonnant 
ce qui entre dans Macintosh ces 
temps-ci. Les logiciels IBM PC, par 
exemple" pioclame, noti sans hu- 
mour, la publicite de ce produit 
En bref, il s'agit d'un complement 
"hard"' au Macintosh. Une base et 
surtout un prolongement de la partie 
droite de I' Apple, parfaitement dans 
le style et la couleur du Mac. La par- 
tie droite qui elargit le Macintosh 
d'un bon tiers contient les proces- 
seuis. 256 Ko de RAM extensible a 
640. et un drive pour disquettes de 5 
pouces 1/4 (on peut rajouter un se- 
cond lecteur). Oui. diront les specia- 
listes. tout ca est bien. mais F IBM PC 
dispose d'un clavier bien specifique. 
qui n'a rien a voir avec celui du Ma- 
cintosh. Vous n'avez encore rien en- 
tendu. car Mac Charlie contient aussi 
un clavier, dans lequel on embolic 
celui du Mac. On dispose alors a 
gauche des touches de fonctions. et 
a droite d'un pave numerique (egale- 
ment utilisable en mode Macintosh). 
C'est bien le moins. car Mac Charlie 
reviendrait a quelques 1895 dollars. 
Soit le prix aux Etats Unis d'un 
compatible bien equipe. Dommage 
qu'on rt'alt pas encore pense au gad- 
get transformant un IBM PC en Ma- 
cintosh. Chez Apple, qui a du proce- 
der en fevrier a un choiiiaye 
technique pour cause de stocks trop 
importants, on apprecierait.. 

Des programmes comme s'il en 
pleuvait 

11 est bien fini le temps ou les logi- 
ciels pour Macintosh 6taient aussi 
rares qu'un rayon de soleil. a Paris. 

A remarquer d'abord. le Switcher. 
Ce programme pst rievploppp par 
Apple et permet de faire tourner si- 
multanement jusqu'a quatre applica- 
tions sur un seul Macintosh 512 Ko 
Comment ? Le logiciel partitionne la 
memoire en quatre. on peut definir 
la memoire necessaire a chaque ap- 
plication. Ainsi, en se limitant a trois. 
il est possible d'avoir une application 
de 256 Ko. si elle requiert beaucoup 
de RAM. On choisit. au debut de la 
seance, la memoire utile a chaque 
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application puis on charge I' applica- 
tion en memoire. 

Une double fleche s'lnstalle alors 
dans le coin superieur droit de 
1'ecran. Un die sur la fleche et on 
bascule sur I 1 application suivanle. La 
version finale permettra de transferer 
le presse papier d'une application a 
T autre. Le prix de ce programme ? II 
devrait etre gratuit, distribue avec les 
Macintosh comme le Finder, et offert 
aux possesseurs actuels. Ce pro- 
gramme exiqe 512 Ko. 

Aux Etats Unis. Centa System pro- 
pose la transformation d'un Mac 128 
Ko en 512 Ku pour 350 dollars. 
Cest environ trots fois rnoins cher 
qu'en France pour la greffc officielle 
de memoire. Un seandale non ? 

Mass Tech propose la meme trans- 
formation pour 379 dollars. Mais, 
offre surtout une greffe portant la 
memoire a 1 m£gaoctet pour 995 
dollars. Un mega, de quoi r£ver 
non ! Autant que lc Lisa (pardon Ma- 
cintosh XL) mais avec la compatibi- 
lite en plus (actuellement. Macintosh 
XL n'est pas parfaitement compatible 
avec ses petits freres. et deforme no- 
tamment I'image de 1'ecran. en refu- 
sant d'absorber certains programmes 
en emulation avec MacWorks). Le 
Mac a un mega est deja la, et ce 
n'est qu'un debut... 

Deux traltements de textes 

Jusqua main tenant. Jes utilisateurs 
de Macintosh devaient se contenter 
de MacWrite. Un logiciel facile, per- 
mettant une vision exacte a 1'ecran 
de ce qui sera imprime. mais limite, 
notamment par ses possibilites d'irn 
pression. Voici done deux bonnes 
nouvelles. 

D'abord, la sortie aux Etats Unis (et 
bientot chez nous) de la upraon 4 3 
de MacWrite. Elle permet d'imprimer 
sur un Mac 512 Ko quelques 250 
pages (a condition que ce document 
n'incorporc pas plus de 2047 passa- 
ges a la ligne par la touche Return, 
et qu'il y ait suffisamment de place 
sur la disquette pour I'accueillir). Le 
texte ne reside plus en memoire, 
mais est charge depuis la disquette 
au fur et a mesure des besoins. En 
plus des perfection nements annonces 
dans le numero 17 de Pom's, le 
nouveau Macwrite offre la possibility 
d'imprimer un document en le redui- 
sant dp 50%: et un nouvel accessoire 
de bureau permet de choisir son im- 
primante, adapte au reseau local Ap- 
pletalk et a rimprimante LaserWriter. 

L'autre nouveaute. c est la sortie offi- 
cielle de la version finale de Word de 
Microsoft. Un traitement de textes 
qui repondra aux besoins de tous les 
professionnels; on peut : 
• disposer simultanement d'un 
maximum de quatre fenetres. 



contenant chacune un document 
• colter sans probleme des mor- 

ceaux de textes entre documents. 
II existe un glossaire. et la taille des 
d umenK est illimitee 
On peut aussi realiser des notes de 
bas de pages, automatiquement nu- 
merotees. ou ecrire en colonics 
Toutes les commandes (meme la 
tdille des caracteres) sont doublees 
par des sequences de touches an cla- 
vier. Les documents MacWrite sont 
ulilisables dans Word. Ajoutons que 
le programme dispose en plus de la 
possibility d operer fusions de Icttres 
et mailings. Tres tres im pression nan t. 
Un must pour les utilisateurs serieux. 

Journaux elertroniques 

II n'a pas fallu longtemps pour cons- 
tater que !e Macintosh, particuliere- 
ment dans son association avec rim- 
primante LaserWriter, permettait de 
realiser des journaux et lettres perio- 
diques sans problerne. Dans le prece- 
dent numero nous vous preventions 
MacPu blish er. Voici encore Ready 
Set Go de Manhattan Graphics, base 
stir une habile utilisation de Mac- 
draw. Tres facile a utilise! pour 125 
dollars. 

Un Macintosh en couleurs ? 

Sur papier, seulement Grace au logi- 
ciel Color Print importe par BIP. Un 
jeu de trois rubans (rouge jaune et 
bleu) se substituent au nihan original 
de rimprimante Imagewriter. La cou- 
leur a partir du Macintosh pour 710 
francs. 

Des pommes au menu 

A la difference de Lisa, -en theorie, le 
Macintosh ne permet pas d'effectuer 
simultanement plusieurs taches. Voici 
ce handicap partiellement surmonte 
Grace a des accessoires qui s'instal- 
lent dans le menu Pomme. Vous 
avez deja, en standard, sur tous les 
logicicls Theure, une calculatrice bien 
rudimentalre, 1'album,... Voici que de 
nouveaux accessoires peuvent s'y 
installer facilement. Comment ? 
Grdce au Desk Accessory Mover 
(DAM) qui permet de rajouter, d' en- 
lever, ou de debapnser des accessoi- 
res aussi facilement que de changer 
un jeu de caracteres avec le Font 
Mover. Ce DAM concu par CE Soft- 
ware est vendu d'une facon inhabi- 
tuelle sous le systeme du Mac 
Honor. Les utilisateurs sont invites a 
en faire des copies pour leurs amis. 
Et ceux ci, s'ils souhaitent le conser- 
ver sont invites, a leur tour, a en- 
voyer au createur la somme de 25 
dollars, ce qui donne droit aux per- 
fection nements et aux documenta- 
tions. 

Que peut-on installer daiib le menu 
Pomme ? CE propose trois outils 
bien utiles : le Mockwritc, un mini 



traitement de textes dont on peut 
disposer a tout moment (meme sur 
le bureau) permet d'ecrire un texte, 
de le sauver, de le retrouver. En 
outre, il possede meme une fonction 
de recherche. 

Le MockTerminal est un programme 
de communication. C est peut-etre le 
plus utile. Vous remplissez une fiche 
de CX MacBase. lorsque vous avez 
soudain besoin d'une information 
dispontble sur votre banque de don- 
nees. Sans quitter le programme, 
vous cliquez sur MockTerminal dans 
le menu Pomme. vous appelez par le 
Modem la banque de donnees et 
vous recevez Tinformation. Un coup 
de copier-culler, et elle est incorporee 
a votre fiche. 

Mock Printer permet d'imprimer un 
document a n'importe quel moment, 
merne sans disposer d'un traitement 
de textes. 

Un agenda permet de noter des ren- 
dezvous. Une calculatrice sciennfi- 
que ou financiere peut remplacer 
avantageusement la calculette stan- 
dard. Pour les programmeurs, il 
existe une calculatrice hexadecimale. 
Un utilitaire permet de connaftre en 
permanence la place encore disponi- 
ng sur un disque, ou dans la me- 
moire centrale de Macintosh. Un 
"Executive Decision Maker" rem- 
place le pile ou face, pour vous don- 
ner un avis (hasardeux) sur une deci- 
sion a prendre. Une loupe permet 
d'agrandir un morceau de 1'ecran. 
Un accessoire enfin permet de pro- 
voquer rejection du (ou des) dis- 
que (s), et de provoquer un Reset par 
logiciel. 

Tous ces accessoires ont I'avantage 
de pouvoir etie "invoques" tout en 
utilisant un programme, sans inter- 
rompre son execution. Et ce n'est 
qu'un debut. 

T/Maker Graphics propose ClfckOn. 
Rien de moins qu'un mini-tableur et 
ses graphiques. caches dans le menu 
Pomme. L'avantage est de pouvoir 
I'utiliser tout en ecrivant un docu- 
ment avec MacWrite. et coller dans 
le texte le tableau et le graphique ob- 
tenir II en coutera 80 dollars. 

Controle X pourrait comme rcialiser 
en Prance Art Grabber. Un acces- 
soire (toujours utilise dans le menu 
Pomme) qui permet simplement 
d'ouviii (el de retoucher) un docu- 
ment MacPaint, sans avoir a ouvrir 
MacPaint quel que soit le programme 
ou on be uouve, et surtout. d'utiliser 
dans tous ces environnements les 
dessins tout faits de Click Art. 

Un seul pepin dans cette pomme : 
une fois "gonflee" de tous ces acces 
soires. le systeme de la disquette oc- 
cupe une place considerable (fre- 
quemment 300 Ko). La solution 
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consisle done a travailler avec une 
disquette ne contenant que le sys- 
teme. et une autre contenant fichiers 
et applications. Ce n'est pas facile 
quand I'application est pioteyee 
Quoi qu il en soit. il vaut mieux dis- 
poser de 512 Ko et de deux lecteurs 
de disquettes. 

Les utilisateuvs du Macintosh savent 
deju que deux disquettes. e'esi pour 
cet ordinateur un vrai minimum 



Adresses 

Solitaire 746 West 113th Street 
Bloomington - Minnesota 55438 
Applied Engineering PO Box 798 
- Carrollton - Texas 75006 
Central Point Software 9700 S W 
Capitol Highway #100 Portland - 
OR 97219 

Street Electronics Corp. 1140 
Mark Av. Carpinteria CA. 
Pentasonic 34 rue de Turin - 
75008 Paris - Tel : 293 41 33 
Dayna Communications 50 
S.Main - Salt Lake City Utah 84144 
Centa Systems 5308 Derrv Av. 



Suite C Agoura Hills - CA 91301 
Mass Tech 451 Boston Road - Gro- 
ton - MA 01450 

JRD Orleans 11 place Ste Croix - 
45000 Orleans - Tel : (38) 54 83 30 
CE Software 801 73rd Street - Des 
Moines - Iowa 50312 
T Maker Graphics 2115 Landings 
Drive Mountain View - CA 94043 
BIP 13 rue le Due - 75018 Paris - 
Tel : 255 44 63 

Controle X Tour Maine Montpar- 
nasse - 33 avenue du Maine - 75755 
Pans Cedex 15 



Pour P Apple // 

Techniques de programmation 
sur I'Apple II de Rene Belle. Edi- 
tions du PSI - 164 pages - 95 FF 
Ce livre demontre, a 1'aide d'un 
example complet, 1* illustration de la 
programmation "structuree" en Basic 
Applesoft. Le decoupage en chapi- 
tres est assez clair : qeneralites. saisie 
des donnees, edition, tri et recher- 
che. Un peu leger peut-etre sur le 
controle de securite : une routine 
d'iNPUT generalise travaillant en 
GET aurait ete interessante. Dans 
1' ensemble, bon pour le fond et mau- 
vais pour la forme : ce n'est meme 
pas du MacWrite, mais du traitement 
de textes sur Apple II avec impri- 
mante matridelle 

Apple Logo activities par Stephen 
Hewitt, Reston - Prentice Hall - 186 
pages - $22.05 

The Apple Logo workbook de 

M J Winter, Reston - Prentice Hall - 
230 pages - $16.85 
Deux livres pratiques sur le Logo 
auxquels le seul reproche que Ton 
puisse faire est qu'ils sont rediges en 
anglais et font reference au Logo an- 
glais Ced dit, une simple table de 
correspondance permettra une trans- 
position rapide des exemples. 
Le premier s'articule principalement 
autour de questions posees a l'utilisa- 
teur en indiquant des references a 
des explications se situant dans d'au 
tres pages. Le second, uresente en 
46 leoons bien programmees, alterne 
les explications et les exercices. Les 
deux livres sont interessants, le se- 
cond 6tant un excellent guide pour 

un professeur souhaitant organiser 
des cours de Logo. 

Pour le Macintosh 

Connaissez-vous Macintosh de 

Pierre Courbier. ETSF - 143 pages - 
80 FF 

Le enieme livre -en francais sur T utili- 
sation du Macintosh, et qui ne ferait 
pas vingt pages s'il etait compose et 



si Ton enlevait les copies d'ecran... 
Encore une fois, aucune astuce d' uti- 
lisation. Mieux vaut assister a une 
bonne demo de 30 minutes sur le 
Macintosh. 

L'outil Macintosh de Gerard Levy. 
Eyrolles - 288 pages - 260 FF 
11 y a deja la plus de eontenu que 
dans les livres semblables au prece- 
dent. Mais, quand on "presente" 
plus de 30 logiciels, sans parler du 
Macintosh lui-meme, en si peu de 
place, on est forcement superficiel. 
En outre, la presentation ballote 
completement le lecteur : on passe 
d'un logiciel a I' autre sans indication 
claire de changement; il se degage 
helas une impression de fouillis. 

Macintosh, outils, proglciels. ap- 
plications de Xavier Gaucherand, 
Edimicro - 237 pages - 148 F. 
Un des meilleurs ouvrages dans le 
genre frelate du livre d'initiation a 
Macintosh et a ses logiciels. Au 
moins, celui-la est compose... car 
meme si MacWrite est un pro- 
gramme sympathique et l T Image Wri- 
ter une imprimante de qualite, un 
lecteur objeclif peul difficilement 
trouver plaisant a lire un ouvrage re- 
dige en MacWrite. Signalons un ef- 
fort de classement et un souci peda- 
gogique rare dans la logorrhee 
ambiante du Macintosh. 

Decouverte et pratique de CX 
MacBase par Herve Thiriez, Editions 
Controle X - 170 pages - 125 FF. 
Disquette d'accompagnement : 1 75 

A la fois un excellent guide pedago- 
gique sur 1' utilisation de CX MacBase 

ct un recueil d'applications avec de 
nombreux tableaux expliques dans le 
livre et prets a 1'emploi sur la dis- 
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quette d'accompagnement. Les 
divers exemples illustrent les nom- 
breuses possibilites du programme. 
Le livre fait reference aux versions 
M10 et M20 du programme. 
I disquette comporte une version 
bridee du programme, interdisant 
Timpression ou la creation de nou- 
velles riches, mais permettant de 
mettre en oeuvre tout le reste du 
programme : un moyen economique 
de tester CX MacBase avant Pachat 
A noter tout particulierement : UniFi- 
che. un modele menant a des utilisa- 
tions multiples 

La communication 

Le guide marabout de la telema- 
tique de Michel Poullet - 221 pages 
Un ouvrage clair, mais uniquement 
destine a ceux qui souhaitent enrichir 
leur culture generate Certains sujets. 
tels que la monnaie electronique ou 
la bureautique, n'interessent directe- 
ment ni I'Appleomane, ni le fana de 
la micro. De plus, on n'y trouve rien 
de specifique a I' Apple. 

La tele-lnformatique personnelle 

de Jacques Bessieres, Hachette Infor- 
matique - 217 pages - 145 FF. 
Voici un excellent livre sur la 
communication. En outre, comme 
l'indique le sous-titre, il s'interesse 
aux "Applications aux ordinateurs 
Apple". Clair et plein d' informations, 
cet ouvrage couvre les aspects hard 
et suit dinsi que les services. II pre- 
sente de multiples recettes d' utilisa- 
tion. Meme le celebre Roland Mo- 
reno nous dit que e'est, pour ses 
collaborateurs. un ouvrage de refe- 
rence. Cest tout dire... Un must 
pour les branches. 
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Salsle dc r6els en Pascal P 

Ef facerneni ae Directory en Pascal P 

Le lolo, e'est facile B-A 

Cryptographic a clef publlque P 

Vlslcalc et traltement de texte D 

Lesarcanesaunonueur Apple ill a 

Monlteur $tendu A 

L'Apple //e a l'essal / 

Le cours dc Basic Applesoft ✓ 

Bases ae oonnees sur I'Appie / 

Mini-base de donnees / 

PILOT et SuperPlLOT a l'essal / 

Multlplan a l'essal / 

bancd essal du Basis 106 / 

Allo.Ouestel? / 

The Last One a l'essal / 

CORP a l'essal / 

CXrlultlgestlonaJ'essal / 

Banc-test de la carle Legend 128 K / 

LasourlsdeLlsa / 

FID, riUfFIN et DErTUFFIN / 

Nume>o 9 

Cople basse resolution fffottl HGR A 

Unedlteur graphlque HGR B 

Fusions tables de shapes B 

F ondu enchalne gratph I que A 

Reconstltuez le puzzle B-A 

La magle de Maglcalc / 

Frm*uf-rnmpo5lIeur de texte B-A 
Donncz du caractere a voire tmprlmante / 

Super- impression oe chaines 0-A 

M1se en forme delisting B 

Lecture def Ichlers TEXT B 

Salsle Multlpage en Pascal P 

Gestlon de flcnlers avec RWT5 B-A 
Pseudo-opcodes de divers Assembleurs (A) 

La PROM PSA desassemb lee A 

Jongler avec voire catalogue B 

Numero 10 

MAT GRAPH ; voire routine graptilque 6-A 

Compression cflmages HGR B-A 

Oesslns avec une pJanche a clous P 

Aide au graphlque HGR B-A 

Caracleres grants a rimprlmante B 

Declslonnel Graphlque i l'essal / 

Creez des commandos automatlques B-A 

Gestlon de comptes bancalres B . 

Acces direct aux dlsquettes B-A 

Edition des f Ichlers Basic B 

Suppression de fin de programme B-A 



input generalise de tableaux B-A 

Chargement automating de I'lnteger (A) 

Conversion de Big Mac vers Lisa 2.5 A 

La communication avec r Apple / 

CXSystemealessal / 

Calendrler perpetuel en Vlslcalc / 

Music / 

Numero 1 1 

Initiation a I'Assembleur < I) A 

Le Bavard B-A 

Effets stroboscopies B-A 

Une asluce pour supprlmer les REMs 6 
Des POKES a gngn 

Un programme de menu B-A 

un menu a la cane P 

Pornmesoft B-A 
Comparalson de programmes 

en langage machine A 
Comparalson oe programmes Applesoft B-A 

Un "Type Ahead - en Applesoft B-A 

Trace de courbes en conversational B-A 
L oblentlon de I'extremum absolu 

des fonctlons de plusleurs variables B 

Trl raplde en Assembleur B-A 

MacArtlcle / 

Gutenberg a l'essal / 

Les loglclels de traltement de texte / 

Magic Window II a l'essal / 

Numero 12 

Initiation a I'Assembleur <2) B-A 

Dlsque vlrtuel 16K A 

Charts Unlimited a l'essal / 

Le calculates entler A 

Exp(PI-5qr(l63))est-llentler? / 

Patch du DOS 3.3 B 

Des tableaux de dimension variable A 

8. ONERR GOTO A 

Programme Assembleur 

a la fin tfun programme Basic B 

Nombre f lottants en langage machine B-A 

PEEKs et POKEs en Pascal P 

Imprlmez les codes ESC de votre PLE B 

Trace raplde de cere les A 

Un edltcur de shapes D-A 

Des trues pour Apple Writer 1 1 • et //e / 

Adaptez Apple Writer I.I a TApple /ft I 

Pom'savuMFM/TEPM / 

Analyse dc Magic Mailer / 

La famine Apple// / 

L'Apple //c est ne" / 

Numero 13 

initiation a l Assembieur (3) A 

Home. Sweet Home A 
Un Jeu d'adresse en Pascal : 

Ordralphabetlx A P 

ProOOSa lessai / 

La compatibility del'Apple//c / 

Analyse de la VTOC B 

Bloc-notes B-A 

Impression des variables A 

Documentation des tables de shapes B 

Reduction d'lmages HGR A 

PEEKsagogo / 

Le Baslclum / 

Le lecteur Micro-Expansion I M6ga / 

Bugoyler d l'essal / 

Pom's a vu LIGHT I / 

ThlnkTank a l'essal / 

Les nouvelles de Macintosh / 



74 



Pom s n° 18 



Initiation a I'Aasembleur (4) B-A 

Proceoure & A 

Disque vlrtuel 64K A 

Lecture/Ftrlhre raplde de tableaux B 

INPUT g6n*ralls6 miniature B 

Arnper-interprileur ICARE B-A 

Les essalsdu Macintosh / 

Pe MacWrite i Apple Writer //e B 

Les tokens du Basic Microsoft (6) 

uestion ae masques am6ilor«e B-A 

Levetolethrllle / 

2l7flchlerspardlsQueUe 8 

Conversioo mirwscuies/riAJUSCULES A 

Un catalogue general B-A 

Koala Pad a I'essal / 

Applcworksa I'essal / 

vislcalc Advanced Version / 

Jane : r Apple II saue# Macintosh / 

Numero 15 

lnltUlonal>>ssembIeur<S) A 

MonhyDI*k A 

Disk Check-Up A 

Fleuvesde France B 

HPGRAPH p 

Ecrl tiire en pag* haute resolution B-A 

Mouse Pasnt / 
Les carac teres programmables 

sur imprimante Apple / 
Gesllem de f Ichlers par RVAS et DOS 3.3 B-A 

Les routines en ROM du MacfntOSh (8> 

On tditevr de formes et curseurs B 

Omnls 2 a I'essal / 

Numero 16 

Initiation a fAssembleur (6) A 

Pot-pourri ProCX)S / 

Gerer la date Pr uDOS B-A 

Signature B-A 

Votre Fpson en mode proportion^] B-A 

Acces direct aux disquettes B 

L'Apple en mull ItScnes B-A 
Personnalisez vqs disquettes 

Macintosh r 

Call un exemple d application B-A 

MacPaint et te Basic B 

Appel des routines en fiOfl A 

Entree anaiogique amelloree A 

Undesassembleuren Applesoft et WPL a-wpl 

Les codes ASCII *!//• B 

STARTUP et salsle Ue la date en Pascal P 

PLE"CRAE*APA B-A 

Converslftn mlni«rules/HMJ5CULES B-A 

CALLsagogo (B) 

Numero 1/ 

Initiation a I AssembimirO) a 

Transf ert rapide dc tableaux B A 

Les poinleurs en Pascal UC50 p 

Animations Qraphlques 8-A 

Visualisation d'une distribution normaleB 

Cople tfecran sur imprin.dfile Epson A 

catalogue sur imprimante B-A 

BSAVF fit BLOAP *vee 

le Basic Microsoft B-A 

Swstcn video pour carte 80 colonnes / 

Mlnl-edlleur Basic B-A 

Transform** votre /Je en II* A 

Conversion chirfres-letliBS B 



A(ssembleur) - B(aslc) - P(ascal) - (B/A) 
relatlf au Basic ou a rAssembleur 
Les articles dont les litres sonl en Ualloues. 
conrernent le Macintosh. 



Courrier 



Je dispose d'un Apple / e muni d'un 
lecteur de disquettes. d'une carte 
Chat Mauve et dune carte "souris" 
Le programme "Bisque Virtuel 16K", 
pubtie dans Pom's 12, fonctionne 
tres bien. mais rien ne va plus aver 
le "Disque Virtuel 64 K". paru dans 
Pom's 14. L'auteur parle de carte 80 
colonnes etendue, sans preciser la- 
quelle. La carte Chat Mauve serait 
elk incompatible ? 

D autre part, une petite suggestion 
pour les forts en assembleur; est-il 
possible de r&aliser un patch du pro- 
gramme COPY du DOS 3.3 qui per- 
mette de faire une copie de disquette 
en une seule passe ou deux (avec un 
seul lecteur de disquettes et une 
carte 64K). Ce nest pas evident, 
mais je ne m adresse pas £ n 'importe 
qui, que diable ! 

Regis Rlngenbach - 30 Villa Chaptal 
- 92300 Levallois 

En effet. le "Disque Virtuel 64K" 
pose un probleme, jl ne protege que 
la premiere moitie de la page texte 
de la memoire auxiliaire (pages 4-5, 
les pages 6-7 extant oubliees). Par 
consequent, il faut apporter des mo- 
difications au programme pour son 
bon deroulement. 

Patch de AUTO RWAUXINIT.OBJ : 

BLOAD AUTO RWAUXINIT.OBJ 
4F47: OC 
4rCB. GC 

5065: 10 07 06 OU Ul U4 05*06 07 
5094: 65 
50AD. 05 
50AF: 68 

BSAVE AUTO RWAUXINIT.OBJ 

Ces modifications ont ete precisees 
dans Pom's 16 (p. 66). II est a noler 
que le "Disque Virtuel 64K" ne fait, 
en realite. que 50. 5K (4K pour la 
piste du catalogue et 46.5K pour les 
donnees). 

tn ce qui concerne la page graphi- 
que haute resolution de la memoire 
auxiliaire. elle est correctement prote- 
gee par le disque virtuel (inhibation 
des pistes 6 et 7). En revanche, ce 
disque virtuel est incompatible avec 
le programme PURPLESOFT de ia 
carte EVE car ils unlisent tous les 
deux ['equivalent carte langage de la 
memoire auxiliaire (adresses $DOOO 
a $FFFF) II serait possible de pot- 
cher le disque virtuel de la meme 
facon que ci-dessus pour inhiher les 
pistes correspondantes ($11. 12 et 
13) si la pible du catalogue ($11) 
n etait precisement a cet endroir-la 
($DO00 a $E0OO plus exactement). 
ce qui oblige a remanier le disque 
virtuel. 



des lecteurs 

Olivier Herz 



Je ne pense pas qu'il suffise d'un 
simple patch pour que COPYA utilise 
les 64K de la memoire auxiliaire et 
fasse une copie en 2 passes. C'est 
faisable, mais il s'agit d'un gros tra- 
vail, voire meme d'une refonte du 
programme. En revanche, il existe 
des programmes de copie qui en 
tiennent compte acruellement, 
commc Locksmith 5.0. 



Le programme Gesmask Modifie, pn- 
blie dans Pom 's 14, m a interesse. 
Malheureusement. j'ai ete oblige de 
changer quelque peu HCT OR1. 
pour obtcnir une copie d'ecran cor 
recte. J'ai une OKI 82A avec "Uni- 
versal parallel printer interface 
PRX12 (E.E.PJ) et j'avais les proble- 
mes suivants . 

1- je n'obtenais qu'une ligne d'ecran 
sur quatre; 

2- Ies deux dernteres lignes e'eran qui, 
par un appel a $FDED. generaient 
un "plantage sans fin". 

La solution que je propose, nest p<*s 
tres elegante (scrolling des deux der- 
nteres lignes) mais a I'avantage de 
fnnrtinnner Ci^dessous, Ip listing dp 
la routine HCT.OBJ modifiee. 



9A6Z- 


A9 


00 




LDA 


£S00 


9467 


05 


25 




STA 


• 25 


9449- 


AO 


00 




LOV 


£«00 


946Q- 


20 


CI 


F8 


JSP 


*F8C1 


946F- 


Rl 


?R 




1 DA 


(S2R).Y 


94 70- 


C9 40 




CMP 


f»40 


9472- 


80 


00 




BCS 


*9481 


9474- 


C9 


20 




CUP 


f»20 


9476- 


80 


06 




BCS 


*947E 


9478- 


18 






CLC 




9479- 


49 


CO 




ADC 


£»C0 


947B- 


4C 


81 


94 


JMP 


• 94B1 


y47t- 


18 






CLC 






69 


80 




ADC 


t»80 


?481- 


20 


ED FD 


JSR 


•FDED 


948A- 


C8 






I NY 




9485- 


CO 


28 




CPY 


£•28 


9497- 


DO 


E5 




BHE 


».--.-. 


9489- 


A9 


8D 




LDA 


f«80 


948R- 


20 


EO 


FD 


JSR 


•POEO 


94HE- 


C6 


?3 




DFC 


*?3 


9490- 


A3 25 




LDA 


•25 


9492- 


C9 


16 




CMP 


£»16 


9494- 


DO 


D3 




BNE 


*9469 


9496- 


AO 


53 




LDY 


C»5S 


9498- 


C4 


CE 




CPY 


•CE 


949A- 


FQ 


F 




8EQ 


• 94AB 


949C- 


20 


70 


FC 


JSR 


•FC70 


V4VK- 


20 


70 


*-c 


JSR 


•PC 70 


94*2- 


A9 


14 




LDm 


£*14 


94*4- 


AO 


53 




LDY 


£»35 


94AA- 


84 


cc 




STY 


*CG 


94A8- 


1C 


67 


9-1 


JMP 


• S»467 


94AB- 


A9 


00 




LDA 


£«00 


91AD- 


as 


CE 




STA 


•CE 


94*aF- 


60 






PTS 





Olivier Fages - 61 me Victor Hugo - 
94700 Malson Alfort 

N'ayant pas ce materiel, il nous a ete 
impossible de tester les modifications 
que vous apportez a la routine. 



L article STARTUP et saisie de la 
date en Pascal, publie dans Pom's 
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16, m a inspire et je vous propose 
d'obtenir le rneme rSsultat par unc 
rnethode beaucoup plus simple 1 , 

1- Cr4er un fichier EXEC appelc 
DATEUR: 

Depuis le niveau global taper <M> 
pour Make Exec Fife, !e systdme 
vous demande NEW EXEC NAME? 
[J faut repondre DATEUR <RTN>. 
Puis le systeme demande TERMINA 
TOR =98, CHANGE IT; en repon- 
dant N. on retoume au niveau glo- 
bal. Tout ce qui est tape sera 
enregistre dans le ftehi& EXEC. En- 
suite, taper F (Filer} et D (Date) et 
deux his % pour terminer. Le fichier 
EXEC est alors enregistre. 

2- Creer un programme appele 
STARTUP: 

PROGRAM STARTUP: 
USES CHAINSTUFF; 
BEGIN 

SET ( 'EXEC/DA TEUR '); 
END. 

Le fichier EXEC et le code du pro- 
gramme STARTUP doivent se trou- 
ver sur la disquette APPLEO ou 
APPLE1 sous les noms respectifs de 
DATEUR et SYSTEM.STARTUP. A 
chaque boot, le programme SYS- 
TEM.STARTUP sera execute et lan- 
cera les commandes contenues dans 
le fichier EXEC. Ainsi, il suffit de ren- 
tier la date. 

Jean Philip - Chemin St Roch - 
84490 St Satumin d'Apt 

Cette rnethode ne peut fonctionner 
qu'avec la version 1.1 du Pascal 
UCSD. En effet les fichiers EXtC ne 
sont disponibles que sur cette ver- 
sion. 



B m'est impossible de faire fonction- 
ner Je programme "G&rer la date 
ProDOS", paru dans Pom 's 16. Mon 
ordinateur me repond toujours NO 
BUFFERS AVAILABLE. 
Monsieur Rambaud - 11 rue £ Rous 
- 15000 Aurillac 

II y a effectivement un probleme 
avec le programme de DATE en 
ProDOS. En effct. si on fait, apres 
avoir transfer^ DATE sur une dis- 
quette ProDOS. un CATALOG de 
cette disquette, on voit que le SUB- 
TYPE du fichier DATE correspond a 
une adresse de chargement AS0000 
Or, ProDOS refuse dc charger un fi- 
chier en puye et emet done un NO 
BUFFERS AVAILABLE apres I'essai 
d un -DATE. 

La solution est de remplacer dans le 
programme Applesoft (STARTUP par 
exemple) Instruction PRINT 
CHR$(4)"-DATE V par PRINT 
CHR$(4)"BRUN DATfc.A$300" 

Convener des programmes DOS 3.3 
en ProDOS avec les programmes ac- 



compagnant Ic Pom's 16 pose queJ- 
ques problemes. En effet, le pro- 
gramme me repond que je ne suis 
pas sous ProDOS. 

Monsieur Blin - 37 rue due d'Orient 
- 95470 St Witz 

Afin de resoudre le probleme, il faut 
modifier le debut de la ligne 117 du 
programme Basic CQFD. Celle-ci de- 
vient : 

117 IF PEEK (48961) <> 67 
THEN 

Cest le c du copyriqht Apple dans la 
page globale ProDOS (SBFOO - 
$BFFF) 



Je possede une imprimante Epson 
avec une interface Shinshu Seiki Co. 
Ltd. dont je suis tout a fait satisfait. 
Malheureusement. cette imprimante 
se refuse S imprimer correctement les 
menus des disquettes Pom's. Cest 
un probleme souleve par plusieurs 
lecteurs et auquel vous avez donne 
une response dans le numero 15 en 
conseillant d'envoyer vers l'impri- 
mante le code permettant de suppri- 
mer Vaffichage sur 1'ecran. Malheu- 
reusement. Je n'ai pas trouve dans la 
notice de V interface le code en ques- 
tion. 

Aussi me suis-je attaque au probleme 
a sa source. Le saut des lignes vient 
du fait que lorsque le 40eme carac- 
tere est affiche, il se produit un re- 
tour ligne automatique sur 1'ecran. U 
est sufvi d'un deuxieme retour ligne 
envoye par le programme Ce der- 
nier passant ensuite a la ligne sui- 
vaiite se retrouve en fait sur la qua- 
tridme ! Pour passer a la ligne 
suivante. if faudrait done que le pro- 
gramme revienne dune ligne en ar- 
rive, dans le cas au I 'interface affi- 
che sur 1'ecran. Com me il n'est pas 
question d'avoir deux versions du 
programme, j'ai modifie le pro- 
gramme HCT.OBJ pour que le nu- 
mero de la ligne sufvante ne soit plus 
calcule a partir du numero de ligne 
foumi par le moniteur mais d'apres 
un numero tenu dans le programme. 
Et tout rentre dans I'ordre J'ai egale- 
ment modifie I'instruction 70 du pro- 
gramme Basic MENU pour la deba- 
rasser de tout ce qui etait rievenu 
superflu. 

Je n'ai pu faire le test qu'avec Inter- 
face dont je dispose II faudrait veri- 
fier que tout se passe bien avec un 
interface qui n 'affiche pas en meme 
temps sur 1'ecran. 



HCT.OBJ modifie 

•9465. 9496 
9465- 20 BE FD 

9460- A9 00 Ho 23 B5 96 20 Cl 
V4 70- F& AO 00 &l 2G C9 40 BO 



9478- i'iA C9 20 BO 04 49 CO DO 

94Q0- 02 49 BO 20 ED FD CB CO 

9400 20 DO EB 20 BE FD E6 96 

9490- A3 96 C9 18 DO D4 60 
» 

Ligne 70 modifiee : 

70 VTAR 1: PRINT D1$"PR#" S: 
CALL 37989 : PRINT D1$"PR#G" 

C Leyo - 32 aMe de la meute - 
78110 Le Vesinet 



Suite a ma lettre, publiee dans Pom's 
12, concernant les incompatibilites 
que je constatais. sous Pascal ucsd, 
entre la carte interface Epson et la 
cane Eve Chat Mauve, j'ai le plaisir 
de vous annoncer que j'ai en fin 
trouve la solution de ce probleme. 
II s'agissait d interferences entre les 
deux cartes a travers les circuits de la 
carte mere. On elimine ces interfe- 
rences en soudant un condensateur 
ceramique de 220 picofarads 50V 
non polarise (0.9 Frs) entre les bro- 
ches 3 et 7 de la puce 6A sur la 
carte interface Epson; on dispose 
alors a nouveau de I'integralite des 
fonctlons des deux cartes. Cette solu- 
tion a et& trnuve. dans le courrier des 
lecteurs (octobre 84) de Call Apple, 
par un lecteur assidu de Pom's (M. 
Koenig). 

Jean-Pierre Januel - 5 rue Duperre - 
7.W09 Paris 

J'ai acquis, il y a quelques mois, la 
souris Apple Mouse II et son inter- 
face pour mon Apple //+. Program- 
mant assez souvent en Pascal, j'ai 
done voulu 1'integfer a mes program- 
mes par le biais de menus £ la Ma- 
cintosh. Une premiere serie de Units 
a vu le jour et m'a donni satisfac- 
tion, dans un premier temps. Dans 
un premier temps seulement. car la 
souris peut fonctionner en deux 
modes. En mode passif. le plus sim- 
ple, qui oblige done le programme 
utilisateur a rintenogcr rcgulierement 
poui dgtecter les eventuels mouve- 
ments et deplacer le curseur en 
consequence. Cest sur ce principe 
que mes premieres realisations ont 
ete faites. Cela fonctionne tres bien. 
mais si I'intervallc qui separe les in- 
terrogations est trop long (a cause 
des traitements qu'effectue le pro- 
gramme) le mouvemcnt du curseur 
est saccade. 

La solution est d'utiliser fe deuxieme 
mode dc fonctionnement, a savoir le 
mode mettant en jeu les interrup- 
tions. Pour ceux qui ne ronnaissent 
pas le probldme. je precise rapide- 
meiit que llnterface de la souris en- 
voie alors au 6502 un signal d'inter- 
ruption lorsque la position de celle-ci 
a change', ou lorsque le bouton a ete 
appuye (ou les deux). II suffit de 
mettre en place unc routine de prise 
en chaiye de cette interruption, dont 
le role sera de fire les cnordonnees 
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de la souris et de deplacer Je curseur 
en consequence. L'avantage imme- 
diat est que, quelle que soit la lon- 
gueur des traitements du programme 
utilisateur, le curseur suivra toujours 
regulierement les interruptions dans 
ce systeme. 

J'ai experiments ce mode de fonc- 
tionnement. avec succes, sous DOS 
3.3 et J'ai decide de lappliquer en 
Pascal C'est la que les choses se 
corsent. car je ne sais pas, de facon 
precise, comment on peut gerer les 
interruptions danh ce systeme. Je 
lance done un appel aupres des lec- 
teurs qui auraient des renseigne- 
ments a me foumk, quitte ensuite <3 
centraliser tous les Elements qui 
m'auront ete communiques pour en 
faire un article synthetique si le sujet 
interesse d autres lecteurs. Les don- 
nies qui me manqucnt sont. entre 
autres : 

1- l'adresse du vecteur dlnterruption 
(il semblerait que ca se passe ailleurs 
qu'en $FFFE -$FFFF). 

2- Les precautions a prendre (doit on 
sauvegarder des informations particu- 
lieres duties que les registres g&ne- 
raux}. 

3- et tout ce a quoi je ne pense pas 
ici, mais qui a son importance dans 
la manipulation. 

Merci d'avance a tous ceux qui se 
pencheront sur le probleme. Pour les 
autres (qui manqueraient dlnforma- 
tions mais que le probleme interesse) 
j'ai I'intention, si le courage ne ma 
pas quitte d'ici la. d'envoyer a notre 
revue preferee Je resultat de mes co- 
gitations et nuits blanches. 

Eric Pascual • 29 rue Foucher Lepel- 
letier - 92130 Issy Les Moulineaux. 

Le programme de Startup avec saisie 
de date, publie dan<; Pom's 16, est 
fort intcressant. Toutefois, un pro- 
bleme se pose avec la version 1.2 du 
Pascal UCSD car ladresse de la date 
n'est pas la mcme que dans les ver- 
sions precedentes. J'ai trouve quelle 
etait egale a -21252. et indique aux 
lecteurs interesses la demarche a sui- 
vre pour arrfver 3 ce resultat 
D' apres la declaration du type DATE, 
unc telle variable occupe deux cases 
mernoire ADDR et ADDR+ 1 rem- 
plies comme strit • 

Annee (7 bits), jour (5 bits), mois (4 
bits}. 

Ainsi. pour la date du ler janviei 
1985, les 16 bits de ADDR et 
ADDR+ 1 seront : 

0000001000010001 soit la valeur 2 
dans ADDR+ 1 et la valeur 1 7 dans 
ADDR 

II suffit d'enregistrer cette date grace 
a la enmmande D(ate) du F(iler) puis 
de chercher deux adresses consecuti- 
ves contenant les vateurs 17 et 2. il 
est inutile d explorer les 64K de 
RAM. la date se tiouvairt aux alen- 



tours de -2000 a -2500, dans les 
autres versions. 

Christian Bellot - 21 bd Dahdah - 
13004 Marseille 

Je possede un Apple ffe et la carte 
Chat Mauve et desire utilizer le pro- 
gramme Visicalc dans les meilleures 
conditions. Or auiourd'hui. j'obtiens 
un ecran ou les colonnes paires (me- 
moire auxiliaire) restent noires. Que 
dois-fe faire pour resoudre ce pro- 
bleme ? 

Dominique Dubois - BP 410 - 210 
Antsiranana - Madagascar 

La version dc Visicalc que je possede 
date de plusieurs annfies el est done 
incapable de reconnaftre et d'utiliser 
la carte 80 colonnes de FApple //e. 
Si Ton boote sur Visicalc a l'allu- 
rnage. il fonctionnera en 40 colon- 
nes. Si Ton fait PR^3, puis PR#6 
pour booler Visicalc, il y aura un affi- 
chage des 40 colonnes de Visicalc 
sur un ecran de 80 colonnes, done 
une coionne sur deux. Je ne sais pas 
si les version recentes de Visicalc 
sont adaptees au fie, 
En revanche, les nouveaux tableurs 
(Magicalc, Appleworks, Multiplan, Vi- 
sicalc advanvod version...) connais- 
senl le //e et fonctionnent en 80 co- 
lonnes. 

Je me pose de nombreuses questions 
et je vous serais reconnaissant de 
bien vouloir me repondre : 

1- Est-il possible de rendre compatible 
Magic Window a la police de caracte- 
res offerte par I'Epson ? Celle-ci etant 
composee de ESC" ou de 

CHR$(27) + ..." alors que Magic 
Window permet seulement les 
-CTRL...". 

2- L'assembleur Big Mac est allergi- 
que au "OBJ": pouniez-vous expli- 
quer le role et I'utilite de "OBJ " (je 
commence a peine et c'est dur. 

otaj. 

3- Y a-t-il dans Big Mac une 
command? remplacant le 'EP2" du 
Lisa; a moins que Big Mac fasse la 
distinction suivant le "iadresse " ? 

4- Dans tous les listings que /a/ pu 
lire, if n'y a pas une seule routine de 
revectorisation de {'ampersand (&) 
qui soit semblable. N'existe-t-il pas 
une routine standard ? 

Pascal Bordais - BP 45 - 94350 Vil- 
liers sur Marne 

1 N'ayant pas d'Epson. il rn'esi diffi- 
cile de vous repondre. Toutefois, je 
vous propose de faire un essai sa- 
chant que "ESC" n'est autre que 
"CTRL + 

2-Sur Lisa 2.5, ie code "OBJ" indi- 
que radressc de debut du pro- 
gramme objet qu'il faut sauver apres 
assemblage par un BSAVE. soit au 
clavier, soit dans une commande 
DCM dans le fichier source. Ce code 



n'existe pas sur Big Mac. qui met 
d'dutorite le programme objet en 
$8000 et permet de le sauver par le 
biais de la commande "O" du menu. 
Cette commande SnScrit sur la dis- 
quette la vraie valeur du debut du 
programme (donnee par ORG), et 
non $8000 comme le ferail un 
BSAVE. 

3- Vous avez vous-rneme repondu a 
la question. Big Mac fait Id distinction 
suivant I'adresse. fcn cela, it est plus 
intelligent que Lisa, celui-ci ayant be 
so in d'un CPZ pour la page ^ero. 

4- 11 n'existe pas de routine standard 
de revectorisation de I'ampersand 
(&).Pour les commandes d'une seule 
lettre, je vous renvoie a "Amper 
Jump & TSORT" paru dans Nibble 
Express (volume 2). 

En mode texte 80 colonnes des phe"- 
nomenes etranges se produisent avec 
la routine de "La programmation fa~ 
cttt&e" (Pom's 5}. 

& LET donne une barre inverse ha- 
chur£e } 

& INPUT A$,Lx ne positionne pas le 
curseur en debut de ligne de pointille 
mais sur la ligne au-dessous et a une 
distance du bord droit de la fenetre 
egale a la longueur speclfae pour le 
pointille 

GrScc aux articles d'initiation a i as- 
sembler, j'ai pu remedier a ces pro- 
blemes. 

Pour V option LET: il laut tester le 
mode daffichage; si Von est en 80 
colonnes alors on dh/ise par deux les 
adresses $6 et $7 qui sont respecti- 
veineni la marge et la longueur + 
marge. Ainsi, en 80 colonnes la rou- 
tine est de nouveau executee apres 
commutation des pages textes de la 
carte 80 colonnes. 

Pour {'option INPUT: le saut a la 
sous routine du moniteur (JSR 
SFC10) est mndite pour alter en 
$9594 ou J'on teste le mode daffi- 
chage. Si k mode 80 colonnes est 
enclenche'. le saut a SFC10 est rem- 
place par un saut $CBDB (routine 
du moniteur pour la carte 80 colon- 
nes). 

Marche a suivre : 
CALL- 151 
BLOAD PROG48K 
93C9. 20 94 95 

9550: taper la recapitulation ci-apres 
BSAVE PROG48K,A$9300,L$2A2 



9330- 
?558- 
9540- 
9568- 
9570- 
9578- 
9580- 
9588- 
9590- 
9598- 
95A0- 



AD 18 

46 07 
06 AD 
28 09 
18 CO 
Bl 28 
8D t>4 
AD 18 
06 07 
90 04 
FC 60 



CO OA 90 

18 A4 06 

96 94 91 

80 25 32 91 

OA 90 0E 

9 80 25 

CO C8 C4 

CO OA 90 

38 60 AD 

20 DB CB 



05 46 06 

C4 07 DO 

28 60 Bl 

28 AD 

8D 55 CO 

32 9i 28 

07 90 DF 

04 06 06 

18 CO OA 

60 20 10 
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Pom's n° 18 



pom* 

DISQUETTES (sauf precision, toutes les dUquettes fonrtionnent 


s 

sous DOS 3.3 sur Apple II + . e ou c) 


U a | r— a I/O c\ 




55.00 F 


H-BASIC . . tcf Pom s n 8) 


a 


1 t*Lfi C\C\ c 


MUSIC (cf. Pom's n 10) 


* 


oa fin c 

OU.UU 1- 

4 SO 00 F 


¥% I £ \J \A A N ! A /"* CD . ^ ' P3 . ' _ „ ill 




UHJ* 1 Aii {ijr/m) (ct Kom s n 11) 

JEUX A (cf. Pom s n 12) 


a 

a 


450.00 F 
80.00 F 


11*11 K ' 11 / f f ^ 1/11 

JLUX B . (cf Pom s n IZ) 


a 


80 00 F 


BASICIUM . (cf. Pom's n 13) 


a 


150.00 F 


E.P.E (cf. Pom s n" 15) 




150.00 F 


DFMO MAX THF GDI RF TROTTFR (H Pnm\ 1 7) 

i/u'iv I'mrm iiii. uvlul inv/i il.ii rum a l i / 
MAV / mrtnltour t>tant\\\\ fPf no niimarnl 

MAPINTOSH N os 


a 


55.00 F 

150.00 F 

150.00 F 






80.00 F 






80.00 F 


RECUEILS 


- a 


©0.00 V 


N D 1. recueil dps revups 1 a 4 

DUquettes d'accompagnement des numeros 1 a 4 
N 2. recueil des revues 5 a 8 

Disquettes d'accompaqnement des numeros 5 a 8 


a 

a 

a 


1/1/4 l\f\ T~ 

140.00 F 

150.00 F 

140.00 F 

190.00 F 


ANCIFN^i MIMFRO^ 






REVUES □ 4 □ 7 □ 8 


, , a 


35.00 F 


REVUES 9 1 10 1 11 112 |_J !•■» 
□ 14 Q15 D16 D17 D18 




40.00 F 


DISQUETTES □ 1 r 2 D 3 D 4 D 5 

□ | O 7 □ 8 □ 9 □ 10 

□ 11 □ 12 □ 13 M 14 □ 15 

1 — 1 1 £. 1 117 I — I 1 Q 

|_j lo Li 1 ' U 1° 




55.00 F 


ABON1NLMENTS 






POUR 6 NUMEROS a partir du n 






ABONNEMENT SANS DISQUETTES a 
ABONNEMENT AVEC DISQUETTES (Apple II +■ , //e, He) a 


200.00 F 

480.00 F 




TOTAL TTC 






Supplement expedition 
par avion a letranger 




MONTANT 

DU REGLEMENT 


C«s tarlfs comprennent renvoi postal en France metropolitan. CEE et Suisse 
Supplement avion hors CEE : 15 F par numero et/ou disquette 


EnupyeZ boh *t voire reglemeni a (Abonnes ; n'oubliez pas dc jolndre V&tiquette-adresse), 


Editions MEV 64-70, rue des Chantiers - 


78000 VERSAILLES 


Nom 






Adresse 
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Pom's n° 18 



Le nouveau 
LASER 3000 



4* 




Enfin un « P RO » c omplet A 
avec lecteur de disq uettes a : 

CQMPAREZ ! 
Procetseur : 

6502 A / 2 Mhz + en option Z80A disponibie. 

Sysfeme d'exploifation : 

Dos 3.3 + cn option CPM. 

Memoire morle : 

32 K ROM. 

Memoire vive : 

64 K extensible a 192 K RAM. 
Affichage : 
24 lignes. 

Carte 40 et 80 colonnes incorporees. 
Graphisme : 

280x 192 el 560x 192 points. 
Carte couleur incorporee. 
Clavier : 

81 touches ergonomiques, antifatigue. 
Qwcity ei Azeny au choix, avec pave numerique 
+ 24 touches de fonction. 
Son ; 

4 canaux / 6 octaves. 
Enlree/sortie : 

Centronics parallele + en option RS 232 disponibie. 



PES MILL1ERS DE LOGICIELS AU BOUT 
PES POICTS ! 

Polyvalent grace a ses different* microprocesseiirs 6502 A 
ctZ80,lc LASER 3000 off re le plaisir d'utiliser les mcil- 
leurs logiciels de langages. de gestion. d'organisation. de 
calculs scientifiques, dc musiquc, soil des million dc pro- 
grammes : - PKAC1 ICALC. 

- MULTIPLAN, 

- SAARI, 

- ZAXXON... 

Fx ! tableau Praelicalc ! S40 ¥ TTC 

FNCORF LINE REALISATION 



VIDEO TECHNOLOGY FRANCE 

19. rue Luisant -91310 Montlh6ry 
Tel. (6)901. 93.40 -Telex : 692 169 F 

Documentation couleur ci lisle des revendcurs, sur simple demaudc. 



Livre complet avec unite centrale. clavier Azeny accentue +■ pomme ouverte/pomme fcrmee, controleuret Iccieur de disquettes 
■f manuel technique en franeais + cable... 



CHEZ VOTRE LI BR AIRE OU EN BOUTIQUE SPECIAL ISEE 



A 

UVRE OUVERT 



DES UVRtS tr 
DCS DISQUtmS POUR TOUS 



POUR DEBUTER 

Apple pour tous; la decouverte de I'Apple ; 
36 programmes Apple pour tous; exercices pour 
Apple ; 102 programmes pour Apple « In pratique 
de I'Apple tomes 1 et 2 ; le Basic et lecole tomes 
1 et 2; Macintosh Ic magnifique; programmer 
le Macintosh ; multiplan pour Macintosh. 



POUR GERER 

La nouvelle comptabilite sur 
Apple tomes 1 et 2 ; La factu- 
ration et ses annexes; outils 
financiers et comptabtes pour 
I'entreprise ; la paie et ses annexes. 




8 

i 



14 DECOUVERTE OE I'APPLE - 




POUR PROCRESSER 

Clefs pour Apple II ; clefs pour Apple // c ; 
la pratique de I'Apple tome 3; I'Apple et ses 
fichiers; gestion de fichiers et de peripheriques 
pour Apple ll/Pascal; Microbook,base de donnees 
pour Apple; Pascal UCSD sur Apple tomes 1 et 2; 
du Logo pour Apple ; ProDOS sur Apple ; 
Pangraphe ; modeles d'expression graphique. 

POUR DECIDER 

Modeles pratiques de decision 
tomes 1 et 2 ; Visicalc sur Apple ; 
Multiplnn pour Apple II ; bases 
de donnees sur Apple II ; 
bibliotheque scientifique en 
Pascal ; tests statistiques 
usuels. 



NOUVELLE COMPTABILITE SUR APPLE II- 
I' APPLE FT SES FICHIERS 



•5 



MULTIPLAN POUR APPLE II- 




EDITIONS DU P. 
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